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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A om aacth RESIDENT DIAGNOSTIC WHICH CHECK 2 FUNCTIONALITY 
Go-otss'S"Yne PRGUAG, oBtRGSEl"CauGe EBEET™™ Gch "BGcaHie9® PLE 


FUNCTI THE REPAIR OF ICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT Teer “Wich RIGSIN.THE REP IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
Tre INTERFACE 10 Tre OPeRATON AND TO {ve SOFTWARE ENVIROMENT. 


TAPE PROeR w CORPrETE be BESCHIPTION TON OF the ‘RUNTIME TeRvices, WREFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 

PDP-11/23 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES WORDS OF MEMORY 

26K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

SVOS MAGTAPE SUBSYSTEM (CORIVE AND CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 

1.3. RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


CHQUS XXDP- USERS MANUAL; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 ALY 1980. 


TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1962 


TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1962 


TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
DATE: AUGUST 1962 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
FUNCTIONAL ys nt CENTRAL PROCESSOR AND MEMORY 
ONAL CONSOLE T 


TI C 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP-) 


it 
UNDER TEST IS ASSUMED TO WORK 
CAN BE TED. 
THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA,CVTSBE AND CVTSCD HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME 
CSUPERVISOR). THIS SECTION LISTS THE COMMAND 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS 


START THE DIAGNOSTIC FROM AN INITIAL STATE 
START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 


kort Dae FROM AN —— HALT 
TURN _TO XXDP+ MONITOR (XXDP- OPERATION ONLY!) 
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 
DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOST 


IC - SECTION 4. Sar 
LIST 


OF ALL ete wie 
TYPE THE STATE OF ALL FLAGS (3e5 SECTION 2.3) 
CLEAR ALL FLAGS (SEE TION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST pa CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM ag ag td ee A i El AN BE REFERENCED IN THE 
As iN a MANUAL, DOCUMENT NUMBER AC-F -MC. THE USER ENTRY 


BOOT THE DIAGNOSTIC XXDP MEDIA 


VTSD?? 
BIAS. RUN-TIME SERVICES REV D. APR 79 


CVT 
seeeTSVOS LOGIC DIAGNOSTICeses 
ug Is TSvOS 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES wae & ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED Sey WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
LIST IS A STRING OF TEST 
AMPLE - /TESTS:1:5:7-10. 
TESTS 1,5,7,8,9.10 TO 


Tete fot” 6e" Aum 


/PASS :DD00D 
/FLAGS :FLGS 
7EOP : DDDDD 

/UNITS:LIST 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. 

FOR EXAMPLE, TYPE "/TES:1-S" INSTEAD OF “/TESTS:1-5". 





Gl 
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aL ow S A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


2.3 FLAGS 


FLAGS ARE USED TO SET a CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP -. REMAIN 
CLEARED UNTIL EXPLICITLY el. ae THE FLAGS SWITCH. FLAGS 
ARE ALSO STAR ara be a SET USING THE 


i 
"g 
zh 
ao 
i=) 
PR. 
m 
323 


: LAGS 7 
ALL FLAGS© WITH THE EXCEPTION OF THE START ANG. SFL AGS: COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON 
TER* INHIBIT ALL ERROR REPORTS 
TeR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 
IXEs INHIBIT EXTENDED ERROR REPORTS (THOSE 
PR STREET te Orson He TO CMe PRINT 
PNT PRINT TES MFBER AS TEST EXE es 
BOE ON ERROR 
UAM RATT TENDED MODE co MANUAL INTERVENTION) 
ns APPLY 10 DIAGNOSTICS ERICH DO NOT SUPPORT 
STA bIstecae REPORTING) 
IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUT CODE 
LOT LOOP ON TES 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 
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SEE THE XXDP- oh MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 

TO ns THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 

AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 
2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES = PROMPT 
THE USER FOR HARDWARE TNE ORMATION BY TYPING “CHANGE HW (L) ?” 
YOU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S Nt WHEN YOU ANSWER THIS 
QUESTION WITH A "“Y“, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVI HE PROGRAM WILL ISSUE THE “CHANGE HW?" QUESTION TO ASK I 
HARBUARE PARAMETERS ARE TO BE CHANGED (BY THE O OPERAT OR). 


ON A “N“ (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE oe A . FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERAT OR TO SELEC T THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE tert “Te QUESTION MARK IS THE 

AUL HAT WILL BE TAKEN IF ONL YA CARRIAGE RETURN 15 TYPED_AS A 
RESPONSE . 2 ‘(e). IN A eesti INDICATES THAT DECIMAL NUMBER IS 
REQUIRED AS RESPONSE . "“CO)" INDICATES aN OCTAL NUMBER IS BEING 
ee Es, AN ho ban INDICATES. THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (0D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS ddr cae 2 SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSI IN an BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS BER 11/23 AND UP TO z DRIVES PER CONTROLLER 


ti 
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2.5 SOFTWARE QUESTIONS 
on en YOU HAVE ANS' QUESTIONS OR AFTER A RESTART 


PARAMETERS: Beye Ae WILE GOVERN SOME DiAcOorit, SPeciFic 


OPERAT 
If YOU. MISH 1 CHANGE SAP BRAMETERS. aRSWER BY Tt ven 

THE SOFTWARE GUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START — OR CONTINUE. 


THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVE 


CHANGE SW (L) ? <TYPE_Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE_“Y" T ik FELE 
ITERATIONS OF CER AIN TES #6 
THIS CAUSES EACH TEST ny 
RUN AS QUICKLY AS POSSIBLE. 


ONLY QUICK-RUNNING vocie 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN yey THAT wT a "= DEVICES UNDER TEST. Fon 0 ade 


° DEV. SUCH _AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A A COMMUNICATION 
DEVICE WITH SEVERAL ee THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


To ILLUSTRATE A HORE EFFICIENT METHOD YOU ARE TESTING 
A p ENT RDC MODULE uiTw erGHT ats hers e-coNsisT Rr Pacnen TO IT. 

ARE DE IBED 6 AL NUMBERS 0 T 7. 9% 
ARAMETER OMAT Mean VARY AMONG UNITS CALLED THE 


Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 

CSR ¢ ?. 160000<CR> 
SUB-DEVICE @ C3) ? #1<CR> 
Q-FACTOR (0) 1 0<CR> 


Sh SETS 2s" BRE 


SEQ 0008 


Ji 
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Q-FACTOR (0) 0 ? <CR> 


T4 
CSR ADDRESS (0) ? 1 <CR> 
-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 5S 
CSR SS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
-DEV. @ (0) ? S<CR> 
Q-FACTOR (0) 0 2? <CR> 
UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ $92 ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 
UNIT 8 


CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO_NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
ICE @ (0) ? 0O,1<CR> 

Q- FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ?_ 160000<CR> 
ICE @ $02 ?. 2-S<CR> 


Q- FACTOR (0) 0 0<CR> 

UNIT 7 

CSR Soness (0) ‘. 160000<CR> 
Se 6,7<CR> 


SUB-DEVICE @ 
Q-FACTOR (0) 0 ? 1th 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
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BUILD ace rate enTeres esti Hons cen N THE FIRS “A aie GIVEN_IN 
SERV. T T BOTH SING 


TRUC 
FROM THE FIRST NUMBER TO THE SEI 
2. 3, 4 AND 5 WERE SPECIFIED. 
BY ADDRESSES, THE INCREMENT 
BE ON AN EVEN BOUNDARY. 
THE FOUR ENTRIES ARE ASSUMED TO 160000 RE 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

@ UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS 3s 9 


160000 
SUB-DEVICE @ ¢ 0-7<CR> 
Q-FACTOR (0) 0 


>? 
? +0,1,0....1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


) ? 
0 
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2.7 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP- 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


TYPE “"R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE “START” 
ANSWER THE “CHANGE HW" QUESTION WITH “Y“ 
. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE “CHANGE SW” QUESTION WITH “N* 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
3.0 ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 


ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 


NUMBER = weg? rex 
UNIT NUMBER = N CN IS “Si UNIT IN PTABLE) 
TST —— = Test AND a WHERE ERROR 
PC:XXXXXX = ADORESS OF MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT ue ey THESE ARE ALWAY: were UNLESS 
THE “IER* OR “IBR* FLAGS SET (SECTION 2.3). SE MESSAGES 
ARE PRINTED AFTER THe ASSOCIATED GENERAL MESSAGE. 


ENDED ERROR ME: S CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS RECISTER CONTENTS. OR GO0D/BAD DATA. ARE ALWAYS 
THE “IER* Ten: OR “IXE* ARE SET (SECTION 2.3). 
ES ARE PRINTED AFTER ATED GENERAL ERROR 
ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
bi THE DIAGNOSTIC. THE HE TEST FUNCTION AND UNIT THAT FAILED. 
SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS F 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


O EXERCISER TEST 
016 Ae et tncoomety Sitch tneee oti 040624 
CIN WORD 9) INCORRECT AFTER WRITE FIFO 


IRWD<2> 
IFBY<1> 
IFPT<O> 


sI 
BUF 
0 EXPD 
#1 EXPD: 
EXPO: 
@3 EXPD: 
04 EXPD: 
#5 EXPO: 
#6 EXPO: 
7 EXPD: 
#8 EXPD: 
#9 EXPD: 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
ee aetctwe ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
2 oe AFTER SPACE RECORDS COMMAND 


Teen Scr BIts se Set: SC.SSR 
TERMINATION CLASS CODE = UNRECOVERABLE ERROR 
SS = 026420 


140010 
000010 


000000 
000024 





Ni 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
Th ENDED FEATURES MODE ENABLED. 


EXT 
CVTSD HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 . 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT_ THE END OF ig A THE PASS oe IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERR S REPORTED SINCE THE ee ARS WAS STARTED. 
THE "EOP" SUITCH_ CAN BE USED ONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


DR>STA/FLA: PNT : HOE 

UNITS (0) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
pores ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


vets 001 ar TAPE MARKS TEST 
TST: O02 NO-OP AND a RD TEST 
ASE AND OPERA 


TION INCOMPLETE TEST 
T OF OPERATIONS AT EOT TEST 
TST: 006 EXTENDED: MODE ree TIONS TEST 
TST: 007 RECORD BUFFERING TEST 
TST: O06 FUNCTION TIMING TEST 
O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONT INUOUSL Y UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE “/PASS:“ SWITCH. 


PROGRAM RUN TIMES 
THE AVERAGE RUN TIMES OF THE PROGRAM ARE LIS 
TIMING 


TO BE USED A_ GUIDE. 
PROCESSOR WITH A LA34 CONSOLE 


DEFAULT 
THE ITERATION NO ITERA 
INHIBIT ITERATIONS QUESTION WITH A “Y" (YES) 


TEST N/I NUMBER DEF 
NUMBER SECS. ITER SECS. 


i 1 2 i 
2 1 i fe) 





MACRO VOS.03 Tuesdey 26-Apr-87 09:02 Page 12-1 


oooooo 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 15 SECONDS 
DEFAULT 16 SECONDS 


5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE | cone REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE HW (L) ? 


@ UNITS (D) 2? <ENTER M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE OF THE 
TSBAVTSDO REcTSTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTI BE ASKED FOR E OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED “@ UNITS?“ QUESTION. CAL UNIT 
BEGINNING AT TO FOUR 


SELECTED ‘FOR TESTING. me, a 
PrQUeSTS CHANGES TO THe SOFTUARE OPERATING PARAMETERS. AS 
FOLLOWS: 

CHANGE SW (L) ? 

INHIBIT ITERATIONS (L) N ? 
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6.0 TEST SUMMARIES 


1: WRITE TAPE MARK RETRY 


THIS TEST VERIFIES PROPER st ea OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). 


2: SKIP TAPE MARKS 
pan 8 TEST D SKIP TAPE PAKS REVERSE CO THE SKIP TAPE ee 
FORWARD AND MARK COMMANDS. PROPER 


STOP CESS) AND ENABLE poLe. Tape APE MARKS OS ee ir cor teat erie” Le rcp 
BY THE WRITE CHARACTERISTICS COMMAND. 


3: NO-OP ("CLEAN TAPE“) AND INITIALIZE 
THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP (“CLEAN TAPE“) AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
4: ERASE AND OPERATION INCOMPLETE 
VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
S: DATA PARITY TEST 


ae test verifies thet the = ~~ y circuitry in both in eat Ag Be 
rensport is opereti dete records w per 
written onto tace wd Desking on comet se to abtelnes wren the pa 4 reed E 


6: OPERATIONS AT EOT 
THIS Ma pace REVERSE eC ERASE UATE DA a3 WRITE DATA RETRY 


7: EXTENDED MODE FEATURES 


THIS TEST IeEs TION OF Y av 
pa 3 Is IN EXTENDED FEATURES S hove. THESE COMMANDS 


* REWIND UITH IMMEDIATE INTERRUPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 





EQ 
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TEST 6: RECORD BUFFERING 


» OPERATES PROPERLY 
CHARACTERISTICS DAT 
NOT ALREADY IN 


THIS TEST VERIFIES THAT pa 3 BUFFERING, USED FOR WRITE DATA 
AND READ NEXT a AND _IS PROPERLY 


APRIL 1963 

FIXED TWO PROBLEMS, ONE IN TEST 1 AND THE 
OTHER IN TEST 6. 

REF povLe TO GRASKY “TSVOS CVTSDB DIAGNOSTIC 
PATCH"; 23-DEC-62. 

JUNE 1964 


MINOR CHANGES FOR “ORION* CPU 
ELIMINATED CPU ID MESSAGE. 


JUNE 1965 


CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH 
XXDP+ V2.1 CORSXM) EXTENDED MONITOR. 


APRIL 1967 
S MADE TO ALLOW DIAGNOSTICS TO WORK WITH 


NEW TSVOS MICROCODE (REVISION 2). THE NEW 
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE. 
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- TE TSV2 - PROGRAM HEADER 
. SBTTL AM HEADER 


s INITIALIZE SUPERVISOR MACROS 


TSV2:: 


3ee 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE ISOR. 
gee 
POINTER BGNSW.BGNSFT BGNAU, BGNDU , BGNRPT 
HEADER CVTSD.E.0,655. 
LSNAME: : * 61 AGNOSTIC NAME 
.ASCII /C/ 
[ASCII /V/ 
"ASCII /T/ 
"ASCII /S/ 


mm 3 40/ 


-BYTE 

LOREV:: —_ sREVISION LEVEL 
LSDEPO: : ‘ 30 
Lever: Sot ;NUMBER OF UNITS 
L¢TIML:: sLONGEST TEST TIME 
LSHPCP: : sPOINTER TO H.W. QUES. 
L¢SPCP: : sPOINTER TO S.W. QUES. 
LSHPTP: : PTR. TO DEF. H.W. PTABLE 
L¢SPTP: : sPTR. TO S.W. PTABLE 
LSLADP: : sDIAG. END ADDRESS 
LSSTA:: sRESERVED FOR APT STATS 
L$Co:: 
LSOTYP: : sDIAGNOSTIC TYPE 
LSAPT:: sAPT EXPANSION 

° PTR. TO DISPATCH TABLE 


LSDTP:: 
' LeorspaTen 
LSPRIO:: sDIAGNOSTIC RUN PRIORITY 


PUPPUEEEROEEEE SS 
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PROGRAM HEADER 


LSENVI:: 
LSEXP1::" 
LSMREV:: | 

:BYTE 


2 
m 


LS€F:: 


L¢SPC:: 
LSDEVP: ; 
L$REPP: : 
LSEXP4:: © 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
L$LUN:: 
L$DESP: : 
L$LOAD: : ” 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: ; 
LSPRT:: 
LSTEST::— 
LSDLY:: 
LSHIME: : 


SEEEELEEE: 


Ba 


T 


ooo nm co 8 
Ow 


Ist 


SEQ 0019 


sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 
pee REV AND EDIT @ 


sDIAG. EVENT FLAGS 


s POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


:PTR. TO ADD UNIT CODE 

:PTR. TO DROP UNIT CODE 

:LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
:GENERATE SPECIAL AUTOLOAD EMT 
;POINTER TO ERRTBL 

:PTR. TO INIT CODE 

sPTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

:PTR. TO PROTECT TABLE 

:TEST NUMBER 

sDELAY COUNT 

;PTR. TO HIGH MEM 


He 
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DISPATCH TABLE 
-SBTTL DISPATCH TABLE 


; “THe DISPATCH TABLE CONTAINS THE TTS ey tee oF pe TEST. 
s IT IS USED BY THE VISOR TO DISPATCH TO EACH TES 
gee 


DISPATCH 9 
L$¢DISPATCH: : 
. WORD 
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DEFAULT HARDWARE P-TABLE 
-SBTTL DEFAULT HARDWARE P-TABLE 


+ THE TEST DEVICE PARAMETERS. The STRUCTURE DF THIS TASLE 


s IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


ek DFPTBL ;DEFAULT HARD-P-TABLE 
L10000-L $Hu/2 


L$Hu:: 
OFPTBL:: 


172520 : 1ST (OF 2) REGISTERS. 
224 ERRUPT VECTOR 
PRIO4 ; INTERRUPT PRIORITY. 





Je 
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SOFTWARE P-TABLE 


-SBTTL SOFTWARE P-TABLE 


see 
; THE SOFTWARE P-TABLE AINS THE VALUES OF THE PROGRAM 
s PARAMETERS THAT CAN CHANGED 


L$SW:: 
SFPTBL:: 
TRANSTST:: 
NOITS:: 


SFPTBL 
L10001 -i $SuW/2 


ENABLE 
BIT ITERATION OPTION. 

© = ITERATE. 

INHIBIT ITERATE. 


INHI 


TEST OF 


(PER 


BY THE OPERATOR. 


TRANSPORT(S) IF #1 


; LOCAL (PER TEST) ERROR LIMIT 
GLOBAL 


UNIT) ERROR LIMIT 





Ke 
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-TITLE TSV3_- GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


Tsv3 
TSV3:: 
-SBTTL GLOBAL EQUATES SECTION 


3 THAN 


ge 
EQUALS s GET STANDARD EQUATES. 
: BIT DIFINITIONS 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE ONE TEST. 


I 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


PRIORITY LEVEL DEFINITIONS 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS $3500 
A NEW PASS HAS Lt aE ARTED 
A POWER-FAIL /POWER-UP OCCURRED 
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GLOBAL EQUATES SECTION 


340 
300 
240 
200 
140 
100 


40 
° 


3 
sOPERATOR FLAG BITS 


4 
10 
20 


HOE== 
KT é DEFINE MEMORY MANAGEMENT REGISTERS 
.SBTTL MEMORY MANAGEMENT DEFINITIONS ' 
;eKT11 VECTOR ADDRESS 
*KT11 STATUS REGISTER ADDRESSES 
sR0- 177572 


sn3- 
IF NB 


UIPOR6= 
Toe 

s®USER “D* PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 





Me 
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SEQ 0025 
MEMORY MANAGEMENT DEFINITIONS 


“I* PAGE ADDRESS REGISTERS 
UTPARO= 477649 


IF NB 
*SUPERVISOR “D" PAGE DESCRIPTOR REGISTERS 
sopORO= 172220 


SOPDR7= 172236 


“D" PAGE ADDRESS REGISTERS 
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MEMORY MANAGEMENT DEFINITIONS 


SEQ 0026 


SDPAR4= 172270 


-ENDC 
-ENDC 
s*KERNEL “I" PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 
172302 KIPDR1= 172302 
signee oe os 172304 
172310 KIPOR4= 172310 
172312 KIPORS= 
172314 KIPOR6= 172314 
172316 KIPDR7= 172316 
iF NB 
s*KERNEL “D" P 
DESCRIPTOR REGISTERS 
KDPORO= 172 
KDpDRE= 172334 
KDPORS= 172326 
KDPOR4= 172330 
KDPORS= 172332 
KDPDR6= 172334 
KDPOR7= 172336 
s#KERNEL “I" PAGE ADDRESS REGISTERS 
172340 KIPARO= 172 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172 
172350 KIPAR4= 172350 
72352 KIPARS= 172352 
172354 KIPAR6= 
172356 a ay 172356 


BS 
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TSVOS REGISTER AND PACKET DEFINITIONS 
-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


; SOME GENERAL EQUATES. 
; 


ERRVEC== s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
TTIVEC== 60 s INTERRUPT VECTOR FOR CONSOLE INPUT 
TTICSR== s BUS ADDRESS OF CONSOLE I 

TTIBFR== s+ CONSOLE INPUT DATA BUFFER 

BDVPCR== s BOV11 PAGE CONTROL REGISTER 


BIT DEFINITIONS FOR TSSR REGISTER 


sSPECIAL CONDITION 
sBUS_INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 

sEXTENDED ADDRESS BITS 

3SUB SYSTEM READY 

OFL= BIT6 sOFF LINE BIT 

FATERR= BIT4!6ITS sFATAL TERMINATION ERROR CODES 
TERCLS= BITS!:BIT2!BIT1 ; TERMINATION CODES 


t ad 
iBT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


BIT10 
BITS!B1ITS 
BIT7 


g 
uw 


950 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
966 


ete 


OOOOOOODO 
aIeAsanes 
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TSVOS REGISTER AND PACKET DEFINITIONS 


SEQ 0028 


iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


$8) 
383 :(XSTI 
100000 Xi.0L7 »* BIT15 sDATA LATE 
985 040000 X1.SPARE= BIT14 1 
986 020000 %1.COR = BIT13 i CORRECTABLE DATA ERROR 
967 017375 X1:OZ = BIT12-B1711-BIt10-8179-81T7 BI16-B115-B174-B1TS-BIT2-BIT0 sALUAYS 0 
988 000400 X1_RBP = BITS READ BUS PARITY ERROR 
969 000002 X1,UNC * BITI IUNCORRECTABLE DATA OR HARD ERROR 
991 ‘ 
932 iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
aS 3(XST2) 
995 100000 X2.0PH = BITIS OPERATION IN PROGRESS (TAPE MOVING) 
996 040000 XD:RCE = BITI4 jRAM CHECKSiR ERROR 
ped 002000 aS acre BIT ee nate "CLOG FAILURE CIPO NOT EPPTIED BY. TRANSPORT 
1000 Sooies ooo: Bit? HIE weave t = BUCFERING ma. 
1001 00077 XS:ReVe = 900077 tTF URTTE CHAR CHD THEN = RECROCODE REVESTON LEVEL 
1008 000007 XS:UNIT © BITS -BITI<BITO -IF GET STATUS THEN © CURRENTLY SELECTED Und De 
1004 
1005 iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
1006 +(XST3) 
100 s- 
1006 177400 X3.MDE = 177400 MICRO-DIAGNOSTIC ERROR CODE 
1 X3.SPARE= 8117 NOT USED BY TSVOS 
1010 000100 X3.0PI = BIT6 {OPERATION INCOMPLETE 
101 X3_REV = BITS IREVER 
10 X3.TRF = BITS TRANSPORT RESPONSE FAILURE 
1013 000010 X3.0CK = BITS OENSITY CHECK 
1014 000006 X3.MBZ =BIT2-61T1 NOT USED ALWAYS 0 
1015 000001 X3.RIB = BIT0 iREVER 0 BOT 
ii 
1018 iBT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
1020 ~ 
1021 100000 X4.HSP = BITIS :HIGH SPEED 
040000 ACE = BITI4 RETRY QUNT EX 
io5a 017400 X42 > BiTi2-BIT12 ertio T 1 SPECIAL RO ALWAYS 0 
1025 000377 Xa Une “ 600897 igs92 Refay count F 1 uSet 
1027 a° 
1028 ; 
1029 iTSSR TERMINATION CODES (BIT 0-2) 
1030 3 
ia ; | 
1033 000006 TSREJ= 302 }COMMAND REJECTED 


1034 000006 UNREC= 6 sUNRECOVERABLE ERROR 
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TSVOS REGISTER AND PACKET DEFINITIONS 

- 

{DEVICE REGISTER OFFSETS 


:TSDB/TSBA REGISTER 
;TSDB/TSBA REGISTER HIGH BYTE 
iTSSR REGISTER 
ITSSR REGISTER HIGH BYTE 

; TSDB ADDRESS BIT DEFINITIONS 

Ai716 = 171-8170 ;ADDRESS BITS 17:16 ARE IN 1:0 


} COMMAND DEFINITIONS 


Hw 

r 

“WwW 
| 
Pp 
4 


POSITION 
j YSTEM WRITE 


T 
WRITE CHARACTERISTICS 
sREAD 


6. 
P. 
P: 
P. 
P. 
P: 
P. 
P. 
P. 


WORD BIT DEFINITIONS 


)BUFFER AVAIL FOR CONTROLLER 
}CLEAR VOLUME CHECK 

}REVERSE SEQUENCE OF DATA BITS 

Ti2 JSUAP BYTES IN MenoRy 
BIT11:81710:6119:6178 COMMAND MODE FIELD 
‘pte BITE BITS + ERAUBT ENABLE (ALWAYS=0) 

° Ss ’ s 

‘Cw 2 8} tMAGOR COMMAND FIELD 


VVUVVVVVY 


sRELEASE BUFFER 

I 

IREWIND IMMEDIATE INTERRUPT 
sSECURITY ERASE 





E3 
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TSVOS REGISTER AND PACKET DEFINITIONS 


+ CONTROLLER RAM DEFINITIONS 


167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
200 oPRnAe TERISTICS IQ DATA END RAM ADDRESS 
201 PACKET BEGIN RAM 


210 
215 
234 


;REGISTER DEFINITIONS IN THE MESSAGE BUFFER 


sEXTENDED status We seetey s 


STA 
TEXTENDED STATUS REGISTER 
TEXTENDED STATUS RECISTER 
EXTENDED STATUS REGISTER 


OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
$ 
i- 


2 sLOW ORDER CHARACTERISTIC DATA POINTER 
4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
6 ;NUMBER OF BYTES IN DATA PACKET 


=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 


PKLOW 
PKHI 
PKBCNT 
EXBCNT 


DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


” BSELO = 0 BYTE 0 
BSEL1 = 1 rBYTE bone 2 
3 


SEL2 
SELDATA Word § 
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TSVOS REGISTER AND PACKET DEFINITIONS 


ne 
He 


eo oe bo ee 
~ 


;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


5353 
auneee 


r 


B22) 
FT 
~ 


22222222 2222222: 
SF 


1 AND 13 
APE Status cNot SUPPORTED BY ALL TRANSPORTS 


}8SEL1 CODES FOR WRITE TAPE CONTROL 


uc: 
ue: 
ue: 
uc: 


ey eee 


}BSEL1 CODES FOR WRITE 


ITE 
WRITE FILE MARK 
EDIT 


SERRRENS: 


BITS 
BIT2:eIT1 ) 
BITO IMER A,6 THEN DELAY TIMES IN SEL2 





TSV3 - GLOBAL AREAS MACRO VOS.03 Tuesday 26-Apr-87 09:02 Page 25 


TSVOS REGISTER AND PACKET DEFINITIONS 


+ MS.ATTN SUBCODES 
g¢ 


LATE ON-LINE /OFF<L IN 
SIMA ATE Ont = « chan TRANSISTION 
sFORCE NON-FATAL R (FORCE 


S ERRCODE S54) 


;FORCE FATAL RAM ERROR CCA CCAUSES SCE TO SET) 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


NP IR EINTERRUPT REQUEST (0-1 TRANSITION) 
“Out iTAPE DATA DIRECTION OUT (O= IN) 


-LOOP TRANSPORT 
. WRP ;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


sWORD 09 BYTE 2 ay IN MISS 





H3 
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SPECIAL MACROS AND OPDEFS. 


1224 -SBTTL SPECIAL MACROS AND OPDEFS. 


SAVE GENERAL REGS 1 TO S 
t- 
Jen Ro REG 
sr sREGSAV 
“ ENDM 


} MACRO TO FORCE AN ERROR 

MACRO FORCERROR TAG .NOTSSR 
LIIF NOF LISTALL, .MLIST 

Ist 


-L 
-IF 8 NOTSSR 
; MOV TSSRCRS),R1 sREAD TSSR 


MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG :8R IF YES 


-NLIST 
-IIF NDF LISTALL, .LIST 
-LIST 


Vaufirw 


SUPPRRRDE TY 


: * MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
ye TO A we ¥ exit te s NEGAT is 

| Blaha es choon 

; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

3 


-RACRO FORCEXIT TAG 
‘Si NDF LISTALL, .MLIST 


MOV + — eenealerae sIS FORCER NEGATIVE? 
6nI T s6R IF YES 


a 


-MLIST 
ri NDF LISTML, .LIST 
-LIST 


MACRO TO INCREMENT ERROR COUNTS 
“MACRO NEXT . ERRNO 
$33. tir NDF LISTALL, 2, ae 
ERRNO=ERRNO- 
‘ NDF LISTAL, .LIST 
re a 


1224 
1336 
12 
1229 
1230 
12 
1234 
12 
12 
1240 
1242 
lesa 
1246 
1248 
1250 
1358 
1254 
1356 
1336 
1259 
1260 
1261 
ioss 
1264 
1265 
1266 
1267 
1268 
1269 
127 


RRRARN 
Asanes 
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SPECIAL MACROS AND OPDEFS. 
1277 
i378 


1 


Ser 
1262 

3 
1285 
ibe? 
1268 
1289 
1290 
1291 
1398 
1294 
1295 
12% 
1297 
1298 


3° 
sMACRO TO PERFORM XOR 
3- 


xOR A.B 
4,-(SP) 


ere ¥ 
BIS ($P)-.8 
ENDM 


EN=0 INITIALIZE ERROR NUMBER 
“SBTTL FORCER - FORCE ERROR FLAG 


TO OBTAIN Tre RESu 1S DESCRIBED FOR EACH. SS 


FORCER: : 0 3; FORCE TYPE ALL HARD 
3; - BY THE MACRO “IFERROR~). 
3; - EXIST, yuST ASSUME AND TYPE 
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GLOBAL DATA SECTION 


-SBTTL GLOBAL DATA SECTION 


g 


see 
fio eh Le CONTAINS DATA THAT ARE USED 


SSSeaESs 


; 
3 THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


wre 
Be 
aan 


UUUUUUWUU 
pererer ey 
~ ee 
g 


ot 


es 


S SOFTWARE SW O-OFF;1=0N 
ON LEVEL 


ENABLE SWITCH SW O=OFF ;1=0N 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 

SS MEMORY ERROR 


,ccooooeooooo Bo ooo 


oss 


Sasbeeeesssssseessssssseeeees 


geseeeee 
ho 


sPRINT ROUTINE TEMP 

sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 


i 
i 
a 
1 
1 
i 
i 
1 
i 
i 
1 
i 
i 
1 
1 
1 
1 
i 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
i 
1 
1 
1 
1 
2 
i 
i 
1 


SPE eer acr hy as hp Deh dch 


 iggettltpce reas 





K3 
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TSTOLK - TEST DATA TABLE 
\SBTTL TSTBLK - TEST DATA TABLE 
- 
;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
HIN SEQUENCE THE DATA IS: 


ALL ONES 

WALKING ONES 

WALKING ZEROS 
ALTERNATING ONES AND ZEROS 


sALL 
sALL ONES 
;DATA FOR WALKING ONES 


cehRE 


2 > a a Pe Pe ho fo ae et fe fa Pd Pe Pe ad fe Pe Pt a Pa ae a re 


RRRRRE 
J sis 


RE 3H 


sDATA FOR WALKING ZEROS 


345 
344 
345 
346 
347 
348 
349 
350 
331 
333 
334 
355 
336 
357 
338 
359 
360 
361 
363 
364 
365 
367 
368 
369 
370 
+373 
1378 
1374 
tere 
i379 
13768 
1379 
1380 
361 
333 


S8888ss 
geste 


SRREEEeEECOEEEEE (1/1 


aes 


S88 
gage 
ges 
seK 


Leekend 
ee 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


aR 
888s 
HEE 
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.SBTTL GLOBAL ENVIRONMENT STORAGE 
STORAGE FOR DEVICE REGISTERS 
bury: 0, 9.100000 ;DUMMY DEVICE REGISTERS... 
9°0°86-0.0 
..FOR MULTI-UNIT CHECKOUT. 
F) UNIT” FLAG. 
}INMIBITS CODE IN “CLEAN-UP, 
tFLAG TO SAY NO DEVICE. 
;SOME TEMP LOCATIONS. 
+ COMM BLOCK POINTER. 
FREE MEMORY ADDRESS... 
SIZE CIN WORDS). 


MEM AVAIL FLAG - 
0 = <24K OR NO KT - 


>24K AND KT. 
TEST ROUTINES TO FLAG >26K UNDER TEST 
WE CAN TEST CLEARED OTHERWISE 
LO ADDRESS BITS 
NXM HI ADDRESS BITS FOR DAL’S 16-21 


Sa5S SSSS08880983 8 55583 8 :: 


sCONFIGURATION TABLES. 
sCONFIG WORK. 


cr 1 sEND OF MEM TABLE. 
ABE: : 
sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 


1448 
1449 003374 s1=SKIP SUBTEST O=NO SKIP OF SUBTEST 





M3 
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GLOBAL TEXT MESSAGES 
SBTTL GLOBAL TEXT MESSAGES 

$e 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE ONE TEST. 
= 
iNAMES OF DEVICES SUPPORTED 
, DEVTYP <TSVOS> 


LSDVTYP:: 
-ASCIZ /TSVOS/ 
-EVEN 


iTEST DESCRIPTION 
, DESCRIPT <eees TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR sese> 


L$DESC 
** ASCIZ /eees TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR seee/ 


:81T TO ASCII CONVERSION FOR TSSR REGISTER 


$.2¢,34,4¢,5$,.6$,7$,8¢ 
33°08 116 i28,138149-15¢,168 


ha 
iE 


5 SEER 
ct 
RARE 


RESEEEES BERETS 


INTERRUPT / 
ERRUPT EXPECTED, NOT RECEIVED/ 
/NSA/ 


SEES 





N3 
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SEQ 0039 
GLOBAL TEXT MESSAGES 


1523 004333 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 
1524 004405 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION’T INITIALIZE THE DPU/ 
1525 004455 040 040 042 BRINIT: .ASCIZ / "“BUS-RESET” DION'T INITIALIZE THE DPU/ 
1526 004525 000 NUL -Aekes 4/ 
7 004526 «=O (isia6—iti«é00 NULCR: “ASI 7a 
1528 004531 045 101 040 EXPGOT: . IZ /#A EXP'D: SO68A, REC'D: #06/ 
1529 004565 045 116 04S EXPGT2: .ASCIZ /sNSA EXP'D: SO6HA, SO6ENSA REC'D: SOSA 
1 045 101 040 DUADI2: .ASCIZ /#A aa WRITTEN TO: #068A REGC(R) READ, Ex EXP” DO: #068A, REC'D: #06/ 
1531 004743 122 101 115 PKTRAM:: 2 IZ ‘RAM Contents Not Match Packet Sent’ 
00501 040 040 103 SCME: -ASCIZ / DOESN'T MATCH MFG. MASTER/ 
127 +28 +33 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
isss Gossos «iss 438) 8 MERIT “ARETE Ton Encorrece never ZTE "Nore Bite Set Then SSR” 
. « rec r i s 
1538 005276 «106=S «101. «sR. SCREW; “ASCES ‘FRTM ERROR IN CUBTESTO  CHtere TAPE PRSLES TRANSPORT ene” 
1537 005370 105 i@ RETERR: “ASETS ‘ERROR IN SUBTEST - WRITE DATA RETRY 2) TIMES FAILED‘ 
1 045 116 04 : .ASCI ‘gNSA e¢eee NO NXM ADDRESS--CANNOT TEST NXM TIME . SeeeesNn’ 
1539 0055S2 045 116 045 M8186: .ASCIZ ‘SNSA eeeseeeseeesesess 11/23A SYSTEM seeeeeeesecesesesstN’ 
ieee 005643 045 116 045 8189: ‘fae ‘SNSA eeeeeeeeesseseses 11/238 SYSTEM eeeeessessesesesesNn’ 
13g -SBTTL GLOBAL ERROR REPORT SECTION 
teas 
3ee 
1545 3 THE SA ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
1546 s CALLS THAT ARE USED IN MORE THAN ONE TEST. 
taen 3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
548 gee 
1549 005734 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005734 NXRERR: ; 
1550 005734 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
005734 013746 003110 MOV NODEV, - é 353 
005740 012746 003775 MOV ONXRX , - CSP 
005744 012746 MOV »- CSP) 
01 MOV RO 
005752 104415 TRAP $PNTX 
005754 062706 000006 ADD 06 .SP 
1551 005760 004737 005766 JSR PC. .EXTEND 3s PRINT EXTENSION IF REQUIRED. 
110002: 
P 005764 104423 TRAP CS$MSG 
553 8 
1554 3s THIS ROUTINE A UNIQUE &7 ON CIF REQUIRED) 
tear 3s TO ANY OF THE ERROR SIGNA . 
1557 005727 EXTEND: 1st —(PC)- 
15568 EXTA: 0 s O = NO EXTENSION 
1559 001 BEQ BS 
teen 005774 006 177770 Po A 3 APPEND EXT ON TEXT 
16: ‘INTX s PRINT A BL 
006000 012746 004526 MOV OU 
4 0127 46 000001 MOV ii SP) 
$ONTX 


B4 
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PRITSSR - PRINT TSSR CONTENTS 


SEQ 0040 


1364 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
ise ; 
1568 ;ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1569 ;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
1370 :BY A MESSAGE PRINTING ROUTINE 
: 
1572 s INPUTS: 
1573 3 
1374 : Ri CONTENTS OF TSSR 
3 
1376 ;SUBORDINATE ROUTINES: 
3 
1378 : CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
S 
1580 on 
1581 
1582 006022 PRITSSR: 
1583 006022 SAVREG sSAVE GENERAL REGISTERS 
1584 006026 010104 MOV R1,R4 }SAVE THE TSSR CONTENTS 
1585 006030 PRINTB #TSSRFOR,R4 ;PRINT THE CONTENTS OF TSSR 
006030 01 MOV R4,-(SP) 
006032 012746 006475 MOV OTSSRFOR, -( SP) 
006036 012746 MOV @2,-(SP) 
006042 01 MOV SP. RO 
006044 104414 TRAP CsPONTB 
006046 062706 000006 ADD 66.SP 
006052 010400 MOV R4,RO :GET TSSR BACK FOR CHKAMB 
1587 006054 004737 016154 JSR PC. CHKAMB ;ARE CONTENTS AMBIGUOUS ? 
1588 006060 103410 BCS 5$ BRANCH IF NOT 
1589 006062 PRINTX @AMBTSSR sSHOW CONTENTS ARE AMBIGUOUS 
006062 012746 006715 MOV @AMBTSSR, -(SP) 
006066 012746 MOV #1,-(SP) 
006072 01 MOV SP RO 
006074 104415 TRAP © CSPNTX 
006076 062706 000004 ADD 64,SP 
102 010403 S$: MOV R4‘R3 ONTENTS OF TSSR 
1591 006104 042703 001476 BIC griADOR +FATERR: TERGL 5.3 ;CLEAR ALL MULTIPLE BIT FIELDS 
1592 006110 001434 BEG 20% NO Bits ARE SET 
93 006112 012702 002626 MOV OTMPBFR ,R2 TEMPORARY ASCII BUFFER 
1594 006116 012701 003500 MOV OTSSRBIT RI sASCII EQUIVALENT OF BITS 
006 00570 10$: TST R3 sREMAINING BITS TO CONVERT 
006 001413 BEQ 15% 3BR WHEN ALL ARE DONE 
1597 006126 cLC sCLEAR CARRY FOR SHIFT 
15986 006130 00610 ROL R3 sSHIFT NEXT BIT TO 
1599 006132 1 Bcc 13% sBRANCH IF BIT NOT SET 
1600 006134 011100 MOV (R1),RO }POINTER TO BIT DEFINITION 
1601 006136 112022 11s: Move (RO)-,(R2)- sMOVE ASCIZ TO BUFFER 
1602 006140 001376 BNE 11$ sMOVE ALL BITS 
1603 006142 112762 000054 177777 MOVB 3s @ ,, - 1(R2) LINSERT A COMMA TO TERMINATE 
1604 006150 005721 13%: TST (Ri}- sPOINT TO NEXT DESCRIPTION 
1605 006152 000763 BR GET THE REMAINING BITS 
1606 006154 105042 15%: CLRB _¢R2) s TERMINATE T 
1607 006156 PRINTX @TSSOEF,@TMPBFR ;PRINT THE BIT SEP INITIONS 
012746 002626 MOV OTMPBFR. -(SP) 
006162 012746 006666 “OV OTSSDEF , -( SP) 


C4 
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TSSR CONTENTS 
000002 


000006 


177761 
006756 


000006 
176377 


006515 
000002 


r + 26S?) 
CSPNTX 
$6, SP 


STC TERCLS.R 
TeOcoOCRS}. RS 
@TCOASC,R 


R4.R3 
OrCFATERR,R3 
258 

R3 

Rs 


R3 
TSFCODCR3),RS 
@TFCASC RS 


R3,-(SP 
st CASC -(SP) 
@2,-(5P) 


sGET THE TSSR_ CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
;00N' T PRINT IF ZERO 


sALINE TERMINATION cos FOR INDEX 
iGET THE FATAL TERMINATION CODE 
PRINT THE FATAL TERMINATION CODE 


ae ALL BUT EXTENDED ADDRESS 
sD0N'T PRINT IF ZERO 
;PRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER _ 
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SEQ 0042 

PRITSSR - PRINT TSSR CONTENTS ‘~ 

1 006 045 116 045 EPRT1: .ASCIZ ‘SNSA eeeeeCHECK TRANSPORTesses' 

1643 006415 045 116 04S EPRT2: .ASCIZ ‘SNSA eeeeeCHECK PARITY SWITCH IN TRANSPORTeesss’ 

1645 0064 045 116 045 TSSRFOR: -ASCIZ ‘sNSA TSSR = #06' 

1646 0065 045 116 04S TEXASC: -ASCIZ ‘sNSA Extended Address Bits = #06’ 

1647 006 045 116 045 : -ASCIZ ‘sSNA Termination Cless Code = sT' 

1648 006617 045 116 04S TFCASC: .ASCI ‘SNSA Fetel Terminetion Cless Code = sT' 

1649 045 116 045 : ASGis ‘SNSA TSSR Bits Set: sT' j 

+£30 006715 045 116 045 AMBTSSR: EVEN -ASCI ‘SNSA TSSR Contents Are Ambiguous’ 

1652 006 006776 007021 007047 TCOCOD: .WORD 1%,2%,3%,4%,5%.6%,7%,8% 

1653 006776 116 157 162 18: [ASCIZ ‘Normal termination’ 

1654 00 py 124 145 162 2$: -ASCIZ ‘Terminetion ition’ 

1655 007 124 14 160 3%: -ASCIZ ‘Tepe Stetus Alert’ 

1656 007071 106 16 156 48: -ASCIZ ‘Function Reject’ ies 

1657 0071 122 145 143 5$: -ASCIZ ' reble Error - Tape Position One Record Down’ 

1658 0071 122 145 143 6%: -ASCIZ ‘Recovereble Error - Tape Wes Not Moved’ 

1659 007242 125 156 162 7%: -ASCIZ ‘Unrecoverable Error’ 

1660 007266 106 141 164 8: -ASCIZ ‘Fetel Controller Error’ 

ret EVEN 

1663 007316 007326 007362 007373 TSFCOD: .WORD 14.2%,3%,4¢ , 

1664 00 111 136 164 18: -ASCIZ ‘Internal Diagnostic Failure’ 

1665 007362 122 14 163 2$: -ASCIZ ‘Reserved’ ‘ 

1 0073 102 165 163 3%: -ASCIZ ‘Bus Interface or Sanity Check Error’ 

ert 007437 122 145 163 4%: -ASCIZ ‘Reserved’ 


E4 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
-SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


NUMBER OF WORDS 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


sSAVE THE pore ng 


ICFIFT BIT 1s INTO C BIT 
AND INTO HIGH ORDER 


;PRINT PACKET ADDRESS 


aaUaUEPEECRES | 


TRAP 
ADO 
MOV 
BEQ 
MOV 
JSR 
MOV 
CLR 
MOV 
PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ore 
BLT 


D 
= 
w 


045 PKTFRM: .ASCI ‘SNSA Packet Word sD 
045 PKTADD: .ASCI ‘SNSA Packet Address 





F4 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
;PRINT EXPECTED DATA, RECEIVED AND XOR OF THE DATA BYTE 
‘times ROUTINE IS NORMALLY CALL ONLY FOR PRINT ROUTINES. 
PINPUTS: 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


THE REGISTERS 


b tatated 
pe 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


agz 


sRO HAS XOR ON RETURN 
sRETURN TO CALLER 


-ASCIZ ‘sNSA EXPD: SO3SA RECV: SO38A XOR: #03’ 
PRIXOR - PRINT EXPD, RECV AND XOR 


D 
= 
w 


aH 


;PRINT EXPECTED DATA, RECE DATA, AND XOR OF THE TWO 
apes ROUTINE IS NORMALLY ED ONLY FOR PRINT ROUTINES. 


INPUTS: 
RECEI DATA 
CXBECTED DATA 
XOR OF EXPECTED/RECEIVED DATA 
sSAVE THE 


R2.R 
@XORFOR,R2,R1,R3' Foie Pl = 





G4 
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SEQ 0045 
PRIXOR - PRINT EXPD, RECV AND XOR 


010040 010346 mov RS. -(SP) 

010042 010146 R1.-(SP 

010084 010246 MOV R2,-(SP) 

010046 012746 010072 MOV @XORFOR, -( SP) 

010052 012746 000004 MOV 64,-(SP5 

010056 0 MOV SP. RO 

010060 104414 TRAP 

010062 706 000012 ADD 612 
1762 010066 010300 MOV R3,RO ;RO HAS XOR ON RETURN 
1763 010070 000207 RTS PC ;RETURN TO CALLER 


i 
ire 010072 04s 116 O45 XORFOR: .ASCIZ ‘sNSA EXPD: SO068A RECV: SO68A XOR: #06’ 





H4 
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PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
: 


; ROUTINE TO CONVERT BIT VALUES TO a AND PRINT THE STRING 
‘cm ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


OCTAL VALUE TO CONVERT 
TABLE OF POINTERS TO ASCII EQUIVALENT 


VREG sSAVE THE REGISTERS 
sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


;PRINT CONTROLLER RAM ADDRESS 
_— ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


) INPUTS: 
: Ra RAM ADDRESS 
; 


PRIRAM: 


010170 
+eee 010174 
1602 010176 045 RAMFOR: .ASCIZ ‘sNSA CONTROLLER RAM ADDRESS = #06’ 
1603 -EVEN 


14 
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PRIADD - PRINT MEMORY ERROR ADDRESS 


010310 
000003 


000010 


010310 116 


013702 
013701 


- SBTTL 


PRIADD - PRINT MEMORY ERROR ADDRESS 


3° 
: 
tTMES ROUTING IS MORAALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 


ERRLO 


gage 
R 


“tne 


“4 
» 
8 


PRIAO: .ASCIZ 
-EVEN 


. SBTTL 
] * 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


:SAVE R1-RS UNTIL NEXT RETURN 
GET HIGH ADDRESSS 


‘SNSA MEMORY ERROR ADDRESS = #019805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


IPRINT MEMORY ADDRESS 
STHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


SA 
MOV 
MOV 
sMOV 
ROL 
PRINTS 
MOV 
MOV 
MOV 
MOV 


D 
8 


sSAVE R1-RS UNTIL NEXT RETURN 
GH ADDRE 


T 
HIGH 
MEMORY ADDRESS LOW IN ERROR 





J4 
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TEST ADDRESS 


sPRINT MEMORY ADDRESS HIGH IN ERROR 


O45 PRITO: .ASCIZ ‘SNA MEMORY TEST ADDRESS LOW = #06’ 
O45 PRIT1: .ASCIZ ‘sSNA MEMORY TEST ADDRESS HIGH = #06’ 





MACRO VOS.03 Tuesday 28-Apr-87 09:02 Page 38 
- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
id 
}ROUTINE TO ISSUE A SPACE RECORDS 
iCOPAND (FORWARD OR REVERSE) 
* INPUT: 
a3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
8 & Reverse 
RS FIRST DEVICE UNIBUS ADORESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 


; SIDE EFFECTS: 
; 

: 

P| = 


SPACE: : 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
sOUTPUT: 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
: 


¢ 
: 


000764 010740 
140010 010730 


30R, IF REVERSE 
1POAD UP NUFBER OF RECORDS TO SPACE 


3GO COMMAND 

sCLEAR DIRECTION 

sLOAD UP NUMBER RECORDS TO SPACE 
sSET REVERSE err IN COMMAND PACKET 
3SET UP R4 WITH PACKET ADDRESS 

3 SEND COMMAND 


32488 


@ 
H 
o 


250 
S258.6PE3- 
£0 v CPE D> 
-6(PC) 

.-4 


mag Sgceoesens 





L4 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
177756 
010740 


Raa 


sBUMP DELAY COUNTER DOWN 
38R, IF MORE DELAY 

3;BR IF TROUBLE CARRY = CLEAR 
000002 
000200 


§ Peasy yee2% 


1920 010720 
+353 010722 


D 
4 
w 


PACKET FOR SPACE COMMAND 
-*<.°10>€177770 
ry 
pene WORD 
$: . WORD 
a OF RECORDS TO BE SPACED OVER WORD 


1936 010736 ° 
b+ a 010740 ° sDELAY COUNTER 


1939 : - WRITE CHARACTERISTICS COMMAND 





M4 


TSV3 - GLOBAL AREAS MACRO VOS.03 Tuesday 26-Apr-87 09:02 Page 39 
WRTCHR - WRITE CHARACTERISTICS COMMAND 


A WRITE CHARACTERISTICS 
COMMANDS WILL BE 


ADDRESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 
SET - WRITE ACTERISTICS COMMAND OK 
CLR - WRITE ACTERISTICS FAILED 


IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 
EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW © BUFFER ENABLE SWITCH ON OR OFF 
SIDE EFFECTS: 


37 
WRTCHR: : 


" 


10%: 


20%: 


SO xST2(R3) 
EXTFEA SET EXTENDED FEATURES SW SWITCH 
@X2.BUFE .xST2(R3) BUFFER ENABLE SUITCH SET 
50% TCH NOT SET 
BENBSW SWITCH FOR ENABLED 
XST2(R3), REV MICROCODE REV LEVEL 
317700 REV racageo BITS 
RE T A NEW MICROCODE 
01. EXTFEA SALWAY EXTENDED FEATURE FOR NEW 


sMI 
1996 011112 CARRY NO TROUBLE 
1997 011114 BR 708 tEXIT 


CLR 
MOV 
JSR 
BCS 
BR 

MOV 
MOV 
BIT 
BEQ 
BIS 
cr 
BEQ 
BR 

ADD 
MOV 
BIT 
BEG 
INC 





N4 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 


19986 011116 000241 60%: CLC sCARRY CLEAR = ERROR 
1999 011120 016500 000002 70$: MOV TSSRCRS),RO sRETURN TSSR CONTENTS 
011124 000207 RTS PC URN 


sRET 





BS 
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REWIND - POSITION TAPE (REWIND) COMMAND 


-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


; THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
CAUTION: THE aoe DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 
CALLING SEQUENCE: 
DO A SOFT 


INIT 
~ DO A WRITE CHARACTERISTICS 
JSR PC ,REWIND 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


2028 
2029 011126 
011126 sSAVE R1-RS UNTIL NEXT RETURN 
@RUPACK ,R4 GET PACKET ADDRE 
R4, TSOBCRS) PACKET SS TO EXECUTE 
0360. ,R3 ENOUGH TIME F REEL TO REWIND 
PC, WALTF 
203 
250. 
#250. .(PC)- 
eaten 
-6(PC) 
.-4 
“22¢PC) 
R3 :BUMP COUNTER DOWN 
10 sKEEP GOING 
;CLEAR CARRY TO SET ERROR 
PACKET ADDRESS 


R4,RO sBASs THE 
PC sRET 


WHEN SSR IS 
sWAIT FOR .25 SECONDS 


SAVREG 
MOV 
MOV 
MOV 
JSR 
6cs 
DELAY 
MOV 

. WORD 
MOV 

. WORD 
DEC 
DEC 
BNE 
DEC 
BNE 
CLC 
MOV 
RTS 


-*<.°10>€177770 
-WORD 102010 sPOSTION COMMAND (REWIND) 
-WORD 0 sNOT USED 


RWPACK : 
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SEQ 0054 
CKRAM - COMPARE RAM TO 1/0 PACKET 


2050 .SBTTL CKRAM - COMPARE RAM TO I/0 PACKET 

203 . 

2053 }ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 

2054 sMEHORY AND COMPARE THIS DATA TO A COMMAND PACKET. 

2056 PINPUT: 

5057 : 

2058 : Ra ADDRESS OF THE COMMAND PACKET 

$923 : RS FIRST Sevice UNIBUS ADDRESS 

2061 ; OUTPUT: 

2062 , 

206 ; CARRY T - RAM MATCHES PACKET 

2064 ; R - RAM DOES NOT MATCH PACKET 

2066 LIMPLICIT OUTPUT: 

2068 : THE TABLE RAFATA IS FILLED WITH THE 

2069 ; DATA HELD IN 

2070 , RAMSIZ IS a" TO 8. FOR PRAMPKT ROUTINE 

2072 ‘SIDE EFFECTS: 

2074 : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

5078 ~ 

2077 

2078 011224 CKRAM: : 

2079 011224 SAVREG sSAVE THE GENERAL REGIST 
2080 011230 012701 002236 MOV ORAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
2081 011234 012702 000201 MOV ORMPKTBEG, sBYTE ADORESS OF FIRST RAM DATA 
2082 011240 005003 CLR sCLEAR THE ERROR FLAG 
2083 011242 737 016446 JSR PC. CHKTSSR ;WAIT FOR SSR 

2084 011246 112765 000000 000000 MOVB #0, TSDB(RS) ' MAINTENANCE MODE 
2085 011254 004737 016446 108: JSR PC. CHKTSSR ;WAIT FOR O SET 

2086 011260 010265 000000 MOV R2. TSOBCRS) sSELECT RAM ADORESS 
2087 011264 004737 016446 JSR PC. CHKTSSR sWAIT FOR SSR TO SET 

2088 011270 116511 MOVB  TSBACRS),(R1) sREAD THE RAM DAT 

2089 011274 122124 CMPB GR1)+,CR4)- : ARE TO EXPECTED 

So31 O1i808 oosco$ Sita iSET Pac 

2038 011302 005202 208: INC R2 sADORESS OF NEXT RAM LOCATION 
2093 011304 020227 000210 R2, ORMPKTEND }REACHED YET 

2094 011310 00376 BLE 104 :8R TILL ALL READ 
2095 011312 00570 TST 3 sWAS 

So57 Grisis oonost eR Cae 1OREAR CARRY TO SHOW ERROR 
So30 Sttss5 Soosot S0¢ teh exit 

2099 011322 000261 308: SEC sSHOW GOOD COMPARE 

2100 011324 012737 000010 002276 50%: MOV 08. .RAMSIZ sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
2101 011332 000207 RTS PC ;RETURN 
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CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


-SBTTL CKRAM2 - COMPARE RAM TO 1/0 CHARACTERISTICS vATA 
te 


;ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


PINPUT: 


OF THE CHARACTERISTICS DATA 
FIRST ICE UNIBUS ss 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


t IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELD IN 

RAMSIZ Is StT 10'S. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


g° 
s 


0113534 


¢ 
3 


VE THE GENERAL REGI 


or tole e Petit RAR DATA 
On scr 


re OF NEXT RAM LOCATION 
TWARE. EXTENDED FEATURES SET 
is ers 


hi oo oF ct EXTEND_ FEATURES 


MOV 
MOV 
CLR 
JSR 
MOvB 
JSR 
MOV 
JSR 
MOVE 
INC 
3e0 
MOV 
chp 
BLE 
BR 
cep 


sPRaP 


2156 011466 
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- COMPARE WRITE CHAR. MESSAGE BUFFERS 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
+‘ 


;ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 


LINPUT: 
RECV MESSAGE BUFFER HIGH ORDER ADDRESS 


RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON’T MATCH 


a3R ae 
a 


abe 
_ 22 
ra 


IF NO 
£3 LEXTF, seer” 3 TENDED FEATURES SET IN EXPO? 
Re 016 EXTENDED FEATURES WORD? 


MOV 
MOV 
TST 
BEQ 
JSR 
MOV 
CLR 
CLR 
MOV 
MOV . 
MOV (R1),RE 
cee ° 
BEG 
INC 
ADO 
chp 
oF 
BI 
BEQ 
chp 
BLE 
TST 
Q 


3 
SS¢ 
60% 
PC 


REPR 


D 
= 
w 





> 


TSV3 - GLOBAL AREAS MACRO VOS.03 Tuesdey 26-Apr-87 09:02 Page 44 


SEQ 0057 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2215 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
t¢ 
3317 ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
5318 ‘BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
2219 TERROR PRI INES. 
| 
$35) PINPUT: 
$352 ; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
5333 ; R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
5354 ; R2 EXPD MESSAGE BUFFER ADDRESS 
2225 ; R3 NUMBER OF BYTES TO COMPARE 
3 
$33$ sOUTPUT: 
5358 ; CARRY SET - MESSAGE BUFFERS MATCH 
2229 ; CLR - MESSAGE BUFFERS DON’T MATCH 
; 
$531 }IMPLICIT OUTPUT: 
5332 ; EXPMSG BUFFER IS SET TO EXPD DATA 
5533 ; RECMSG BUFFER IS SET TO RECV DATA 
S534 ; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
2235 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
$339 011610 dxmsce: : 
5338 011610 SAVREG SAVE R1-RS UNTIL NEXT RETURN 
39 011614 020327 000144 cre R3, ORECMSG-EXPMSG, aaD aS FOUNT ABOVE MAX ALLOWED? 
011620 903412 E © ‘a0 BR IF NO 
$541 011622 012708 000144 HOV @RECHSG-EXPMSG RS; 
‘ 
0 012746 011742 MOV .-(SP) 
0116382 012746 MOV #1, -(SP) 
011636 010600 MOV 
011 104417 TRAP © CSPNTF 
011642 062706 000004 ADO 
2243 011646 010037 002300 S$: MOV RO ;SAVE RECV HIGH 
011652 010137 MOV Ri, RCVLOAD sSAVE RECV LOW ADDRESS 
5545 011656 003130 TST TESTING ABOVE 28K? 
011662 001403 BEQ os 1BR IF 
5347 011664 73? 017426 JSR “ SETMAP RETURN ADDRESS BIASED TO PARG IN RO 
8 011670 010001 we nov RO.R1 IGET RETURNED ADDRESS BIASED TO PARG 
005004 8 $ 
$350 Siie?s os005 aR RS EOE AR ERROR SEEN FLAG 
$351 011676 111264 002316 15¢: MOVE (Re) ExPMSG(RA) sSAVE EXPD F 
223¢ 011702 111164 MOVE = (R1). RE R4) ;SAVE RECV FOR ERROR REPORT 
011706 122221 CMPB 0s (R2)=, (R1)- iEXPD EQUAL RECV? 
2234 011710 003403 BEQ t i6R IF YE 
5555 011712 INC 1SET SEEN FL 
5356 011714 062704 000001 25%: ADD #1,R4 ; TO BYTE 
5357 011720 020403 CHP R4‘RS DONE ALL BYTES? 
2258 011722 902003 BGE 506 18R IF YES 
011724 0007 BR 138 100 YTE 
Soe O1i7s0 ool4ee m= fs i8R IF NO ' 
t] 
2362 011732 000241 ere SET FAILURE 
011734 000401 BR 608 
5364 011736 00026 S54: SEC SET SUCCESS 
5365 011740 00020 $: ats PC ;RETURN 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
2267 011742 120 122 117 


SEQ 0056 


DEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aaD 
2268 012032 045 116 045 FERCHM: -ASCI I /SNSA ¢e0/ 
2269 012043 040 040 : 4 TSSR ERROR CODE REC'D = 
2270 012076 056 056 SIMSG: IZ /.... AFTER DOING SOF INIT, 
$37} 012131 124 105 123 TINERR: .ASCIZ /TEST: .../ 
227 EVEN 
2273 te 
2274 3 
<e73 sPRINT ROUTINE TO FATAL SOFT INIT ERRORS ° 
8 
5 $44 s INPUT: 
3 
da 3 R1 CONTENTS OF TSSR AT ERROR 
260 3 
$26} sSIDE EFFECTS: 
3 
2283 3 EXECUTES DROP UNIT TO CEASE TESTING 
2264 ’ 
2285 :- 
2286 
2287 1238 ra BGNMSG SFIMSG 
MSG: : 
2288 012144 004737 006022 PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2289 Sit 38 004737 017312 JSR PC ,CKDROP sDROP UNIT, IF ALLOWED 
012154 L10003: 
012154 104423 TRAP C$MSG 
2291 
| ad 
5598 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
tes sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
295 3 
2296 s INPUTS: 
2297 
2298 3 R1 TSSR CONTENTS 
2299 3 R4 ADDRESS OF COMMAND PACKET 
2300 3 
2301 3 
2308 
2303 012156 PKTSSR 
012156 PKTSSR:: 
2304 012156 004737 006022 PC ,PRITSSR sPRINT THE corres OF TSSR REGISTER 
2305 012162 012700 000004 MOV $4,RO 3NO. OF WORDS PACKET 
2306 012166 004737 007450 JSR PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
2307 012172 
012172 L10004; 
012172 104423 TRAP C$MSG 


H5 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


;PRINT ROUTING TO PRINT THE CONTENTS OF 
‘sans AND A GET STATUS COMMAND PACKET. 


} INPUTS: 

; Ri TSSR_CONTENTS 

; Ra ADDRESS OF COMMAND PACKET 
ge 


BGNMSG 
PKTGETS:: 
JSR 


5 
012174 


sPRINT THE CONTENTS OF TSSR ere 
MOV sNO. OF WORDS IN GET STATUS PACKET 
JSR ;PRINT THE CONTENTS OF COMMAND P 
ENDMSG 
TRAP 
;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 


PINPUTS: 
: Ri TSSR_ CONTENTS 
: Ra ADDRESS OF COMMAND PACKET 


g@ 
BGNMSG SFFMSG 

SFFMSG: : 
JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENDMSG 


L10005: 


L10006: 
TRAP 


sve 
. SBTTL MES - PRINT TSSR AND MESSAGE BUFFER 


;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
‘whew FOR ERROR REPORTS 


;INPUTS: 
Ri CONTENTS OF TSSR 
LOW ORDER MESSAGE BUFF 


R HIGH ORDER ME. BUFFER rer we A 
NOTE: RS IS IGNORED IF KTENABLE FLAG IS CLEAR 


PC .PRITSSR ’ $s TSSR 
ADDRESS 


R Bh sHIGH ORDER ADDRESS 
Pc, ss sPRINT THE MESSAGE BUFFER 


C$MSG 
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SEQ 0060 
ADDSSR - PRINT TEST ADDRESS AND TSSR 
335 .SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 
35a {PRINT ROUTINE TO PRINT THE CONTENTS OF 
3336 ;TSSR AND A MEMORY TEST ADDRESS 
335 PINPUTS: 
2358 3 
5359 ; RS FIRST DEVICE UNIBUS ADDRESS 
2360 ; ERRHI HIGH ORDER MEMORY TEST ADDRESS 
2361 ; ERRLO LOW MEMORY TEST ADDRESS 
Ses ’ 
3364 012236 BGNMSG ADDSSR 
012236 ADDSSR: : 
2365 013236 004737 010356 JSR PC, PRITADD :PRINT MEMORY TEST ADDRESS 
3366 012242 016501 000002 MOV TSSR(RS),RI }GET CURRENT TSSR 
3367 012246 004737 006022 JSR PC, PRITSSR PRINT THE CONTENTS OF TSSR REGISTER 
3368 0 ENDMSG 
re) L10010: 
, 012252 108423 TRAP CSG 
3370 .SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
| ad 
37, 
3373 ;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
2375 IMPLICIT INPUTS: 
5377 ; EXPMSG - EXPECTED MESSAGE BUFFER 
5378 ; RECHSG - RECEIVED MESSAGE BUEFFR 
5379 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2380 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
S3a3 012256 ‘ BGNMSG MSGEXP 
012254 MSGEXP: : 
3 012254 012700 000007 MOV 07,R0 sASSUME NO EXT FEATURES 
384 012260 737 002220 TST ExtFea ;EXT FEATURES ? 
5385 012264 001402 BEO $ ;8R IF NO 
5386 012266 012700 000010 MOV 26. ,RO EXT FEATURE BUFFER IS 8 WORDS 
5387 012272 004737 014662 S$: JSR PC | PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 
S38 012276 ENDMSG 
012276 110011: 


012276 104423 TRAP C$MSG 


J5 
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116 
116 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
3° 


;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
; 


, R1 - BYTE COUNT 
; “ 
;IMPLICIT INPUTS: 
; 
, EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
; RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
ge 
BGNMSG FIFEXP 
FIFEXP:; a 
PRINTX er IF MSGR ;PRINT BYTES TRANSFERRED 
MOV Ri,-( P) 
MOV oF iF insG, -( SP) 
MOV #2. ass”? 
TRAP  CSPNTX 
ADD 66, SP 
PRINTX OFiF ;PRINT HEADER MSG 
MOV OF IF 2MSG, -( SP) 
MOV 2. as 
TRAP CSPONTX 
ADO 64,SP 
MOV R1.RO :GET BYTE COUNT } 
JSR PC; PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
ENDMSG 
110012: 
TRAP = C4MSG 
045 FIFIMSG: -ASCIZ ‘sSNA NUMBER OF BYTES TRANSFERRED = sD2' 
sNsA FIFO DATA BYTES IN ERROR: ' 


045 FIFQMSG: -ASCIZ ° 
-EVEN 


SEQ@ 0061 


KS 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 
}IMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


@STATCOD,R1 sASCII ADDRESS TABLE 
R1)-, sDONE ALL MSG LINES? 


3;6R IF YES 
3;PRINT STATUS BIT NAMES 


CR1)-,RO 
$ 


sD0 ANOTHER MSG LINE 
20%: sNUMBER OF WORDS IN A READ STATUS BUFFER 
sPRINT EXPD/RECV MESSAGE BUFFERS 


L10013: 
T 


<15>. <12> IFMK <9> IRDY<6> IRWD<2>° 
IRESV2<14> IIDENT<11> IHER <8> IONML.<S> IFBY<1>' 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>’ 


25: -Beets i s in Word 069: 
6%: .ASCI DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>’ 


1$,2¢,3%,4¢,5%.6%.0 
$i n o6:' 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
| ad 


}PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
}IMPLICIT INPUTS: 
TED MESSAGE BUFFER 


sASCII ADDRESS TABLE 
sDONE ALL MSG LINES? 


38R IF YES 
sPRINT STATUS BIT NAMES 


300 $e MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 
;PRINT EXPD/RECV MESSAGE BUFFERS 


-WORD  14%,2¢6,3%,4%,5%,6%, Py fi 
ape Bet Loopbeck §i 


n Word 66 
PARERR<15> * TRESV <14> TRESV1<13>° 

SNSA IHISP=>IEOT<12> IWRT=>II <1l> Q>' 

SNA IWFM => IFMK<09> IEDIT=>IHER <06> 

NSA ITADO=>IRDY<06> TADI=>I <05> 

SNA IREW =>IDBY<03> =>I <02> IF =>IFBY <Ol>’ 
=>IFPT<00>' 





M5 
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MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


ra 
a3 


sbbbboeeee 


012700 000012 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
| id 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
: 


}IMPLICIT INPUTS: 


EXPECTED MESSAGE BUFFER 
RE! BUF 


ME. ORDER ADDRESS 
VED MESSAGE BUFFER LOW ORDER ADDRESS 


sSIZE OF WRITE SUBSYSTEM BUFFER 
sPRINT EXPD/RECV MESSAGE BUFFERS 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
{IMPLICIT INPUTS: 


HIGH ORDER ADDRESS 
MEMORY ERROR LOW ORDER ADDRESS 
EXPECTED DATA 
RECEIVED DATA 


$ 
; ERRLO 
$ 
S 
iH 





NS 
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PRAMPKT - PRINT RAM AND PACKET DATA 


SEQ 0065 


2514 .SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
2516 {PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
e217 WHEN THE RAM DATA DOES NOT MATCH. 
2519 PINPUTS: 
2520 : 
2521 POINTER TO COMMAND PACKET 
2522 IMPLICIT, INPUTS: 
2523 RAMDAT DATA AS READ FROM THE 
2524 ; RAMSIZ. NUMBER OF BYTES IN PACKET 
2525 , IF RAMSIZ*0 THEN DEFAULT TO 8. 
2526 f 
2527 sIMPLICIT OUTPUTS: 
2528 , RAMSIZ SET TO O 
2529 he 
2530 014106 AMPKT : 
2531 014106 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2532 014112 012701 002236 MOV ORAMDATA,R1 sDATA FROM THE R 
2533 014116 CLR R2 sINIT BYTE NOEER” 
2534 014120 122124 S$: CMPB Os (R21)+, (R4)- ; COMPARE EXPECTED, RECEIVED 
2535 014122 001005 BNE 7% i0R IF NO MATCH 
2536 014124 FORCERROR 7¢,NOTSSR 
2537 014134 36 BR 10$ :@a0 
2538 014136 116105 177777 7$: Move -26R1),R5 sGET RECV RAM DATA 
2539 014142 116403 177777 MOVB = -1(R4) RB sGET EXPD PACKET DATA 
014146 XOR R5,R3 sXOR EXPD, 
2541 014156 703 177400 BIC 0177400,R3 ;LOW BYTE ONLY 
014162 116137 177777 002230 MOVB -1(R1),RECV 3GET RECEIVED RAM DATA 
2543 014170 116437 1 002226 MOVB se }° EXPD GET EXPECTED RAM DATA 
0141 PRINTB #RAMASC,R2,RECV,EXPD,R3 
014176 010346 MOV R3,-(SP) 
01 013746 MOV EXPD, -( SP) 
01 013746 002230 MOV RECV, -(SP) 
014210 01 MOV ° 
014212 012746 014266 MOV -(SP) 
O14525 010600 HOV “ag? 
014224 Saesis TRAP 
01 06 000014 614,SP 
01 106: pats BYTE COUNT 
01 002276 § RAMSIZ AULT To 8.? 
2547 014240 001404 BEQ ry) 
014242 920237 002276 CMP »RAMSIZ aL Sevres? 
$350 014550 900403 on ae Me iB = 
2551 014252 020227 000010 156: oe 0. DEFAULT NUMBER OF BYTES? 
B25 Stic S808? ooaae = Bh Birstz 1B tba aarsiz 
8 5 
014264 000207 s PC RETURN 
$233 014266 045 116 045 RAMASC: .ASCIZ ‘sNSA BYTE: SD28A RAM: BOSSA Packet: SO38A XOR:803' 
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SEQ 0066 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


2559 .SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
2560 3° 
2561 sTHIS ROUTINE PRINTS THE CONTENTS OF 
2562 :THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S. 
256 : 
2564 ; INPUT: 
2565 : RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
2566 ; Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 
2567 ; NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
2568 sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
$350 014352 PRMESS: SAVREG sSAVE THE REGISTERS 
2571 014356 010005 MOV RO,RS sSAVE LOW ORDER 
2572 014360 005737 003130 TST KTENABLE sADDRESS ABOVE 28K? 
2573 014364 001001 BNE 10$ :BR IF YES 
4 014366 005001 CLR Ri 3SET HIGH ORDER ADDRESS TO 0 
2575 014370 010103 108: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 
2576 014372 006100 ROL RO ;SHIFT BIT15 TO C BIT 
2577 014374 006101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
2578 014376 PRINTX @PROASC,R1,RS ;PRINT MESSAGE BUFFER ADDRESS 
014376 010546 MOV RS, -(SP) 
1 010146 R1,-(SP) 
014402 012746 014530 MOV ) 
014406 012746 MOV 63,-(SP) 
014412 01 
014414 104415 TRAP CsPNTX 
014416 706 000010 ADD 610,SP 
2579 014422 PRINTX #@PRIASC sPRINT HEADER FOR CONTENTS 
014422 012746 014575 MOV @PRIASC, -(SP) 
1 012746 MOV #1,-(SP) 
014432 01 
014434 104415 TRAP CSPNTX 
014436 706 000004 ; 
2580 01 CLR ' OF THE NEXT WORD 
2581 014444 010501 MOV RS.R1 sCOPY LOW ORDER ADDRESS 
2582 01 010300 R3.RO sCOPY HIGH ORDER ADDRESS 
2583 014450 001403 BEQ 208 36R IF NOT ABOVE 28K 
2584 014452 004737 017426 JSR » SETMAP sSETUP PAR ADDRESS IN RO 
2585 014456 010005 MOV RO.RS :GET PAR FORMAT ADDRESS ABOVE 28K 
2586 014460 20%: PRINTX @PRASC,R4,(RS)- ;PRINT THE CONTENTS OF MEMORY BUFFER 
014460 012546 MOV (R5S)-,-(SP) 
014462 01 MOV R4, - 
014464 012746 014633 MOV oPR -(SP) 
014470 012746 MOV 63,-(SP) 
014474 01 MOV SP‘ RO 
014476 104415 TRAP C$PNTX 
014500 706 000010 ADD #10,SP 
7 014504 005204 INC R4 sNUMBER OF THE NEXT 
014506 020427 000007 CMP R4,07 sDONE ALL YET ? 
014512 BGT ; :BRANCH IF ALL DONE 
2590 014514 00276} BLT 208 PRINT FIRST 7 WORDS 
2591 014516 032763 000200 000012 BIT x2. EXTF ,xST2(R35 pEXTENDED FEATUTES ON ? 
2592 014524 001355 BNE 20% ;PRINT EXTENDED STATUS WORD 
2593 014526 50$: RTS 


000207 PC 
5594 014530 045 116 045 -PROASC: .ASCIZ ‘SNSA Message Buffer Address = #01505’ 
2595 014575 045 116 045 PRIASC: .ASCIZ ‘sSNSA Message Buffer Contents:’ 

5596 014633 «0s i8S—(isiaiK(tst«iS PR "ASCIZ ‘SNSA  WordsD1SA; #0° 
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SEQ 0067 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
2598 -EVEN 
2599 [SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
2600 3° 
i sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
: RO - NUMBER OF WORDS IN BUFFER 
260 sIMPLICIT INPUTS: 
2604 : EXPMSG - EXPECTED MESSAGE BUFFER 
2605 , RECMSG - RECEIVED MESSAGE BUFFER 
2606 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2607 , RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
2608 . 
5609 014662 PRMSGEXP: ; 
2610 014662 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2611 014666 010005 MOV RO,RS NUMBER OF WORDS 
26:2 014670 013700 002302 MOV RCVLOADD , RO :GET RECV LOW ADDRESS 
2613 014674 010004 MOV RO,R4 ;COPY L 
2614 014676 013701 002300 MOV RCVHIADD,R1 iGET RECV HIGH ADORESS 
2615 014702 0061 ROL RO SHIFT 61T15 TO C BIT 
014 006101 ROL R {SHIFT TO HIGH ORDER FOR PRINTOUT 
2617 014706 PRINTX R1,R4  |PRINT MESSAGE BUFFER ADDRESS 
014706 01 MOV R4,-(SP) 
Olatic Orstee. 02 MOV pe ria S 
014716 012746 00008 MOV 63,-(SP) 
014722 01 MOV SP ;RO 
014724 104415 TRAP CsPNTX 
014726 062706 000010 ADO 610,SP 
2618 014732 PRINTX 1 sPRINT HEADER FOR CONTENTS 
014732 012746 015107 MOV @PRISG) (SP 
014736 012746 000001 MOV #1,-(SP) 
014742 01 MOV SP; RO 
014744 104415 TRAP C#PNTX 
014746 062706 000004 ADD 64,SP 
2619 014752 005004 CLR sNUMBER OF THE CURRENT WORD 
014754 012701 002316 MOV GE XPMSG,R1 :GET EXPD BUFFER ADDRESS 
2621 014760 012702 002462 MOV ORE ~R2 iGET RECV BUFFER ADDRESS 
014764 011100 20% MOV (R1),RO 1GET EXPD 
2623 014766 0 MOV (R2).R3 iGET RECV 
2624 014770 XOR RO, RS sXOR EXPD/RECV 
015000 PRINTX R4,CR1)-,CR2)-,R3 
015000 010346 MOV R3,-(SP) 
015002 0 MOV (R2)-,-(SP) 
015004 012146 MOV R1)- 555°) 
015006 010446 MOV -( 
015010 012746 015145 MOV OPRMSG2, -( SP) 
015014 012746 000005 MOV 05,-(SP) 
1 01 MOV SP RO 
015022 104415 TRAP sOnTX 
015024 062706 000014 ADO 614,SP 
2626 015030 005204 INC R4 sNUMBER OF THE NEXT 
2627 015032 Cop R4,RS ;O0NE ALL YET? 
2628 015034 002001 BGE 503 BR Tr ves 
2629 015036 000 BR $ 100 THER 
2630 015040 00020 504: TS RETURN 
2631 015042 045 116 045 PRMSGO: .ASCIZ ‘SNSA Message Buffer Address = #01505’ 
2632 015107 045 116 045 PRMSG1: :|ASCIZ ° 


SNwA Hessage Butte Buffer Contents: ' 


2633 015145 045 116 045 PRMSG2: .ASCIZ ‘sNSA : SO68A RECV: S068A XOR: #06’ 


3S 
2637 
39 


9 015232 
Se 
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002314 
002316 
002462 
177400 
015600 


177400 
015602 


002314 
002314 


015602 
015600 


suas 


000014 


015535 
000002 


000010 


SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
| ad 


;ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
; ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
: 


: RO - NUMBER OF BYTES IN BUFFER 
G 
;IMPLICIT INPUTS: 
3 
, EXPMSG - CTED MESSAGE BUFFER 
: RECMSG - Reces MESSAGE BUFFER 
PREYTEXP: j 
VREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO.RS , NUMBER OF BYTES 
cLR PRENO sINIT ERROR pa 
3 
MOV GEXPMSG ,R1 3GET EXD FER ADDRESS 
MOV @RECMSG. :GET RECV BUFFER ADDRESS 
20: MOVB  (R1),RO iGEf EXPD BYTE 
BIC 6tC<377>,RO :C.EAR UPPER BYTE 
MOVB =- RO + 3AVE FOR 
MOVB (R2),R3 ;GET RECV BYTE 
BIC $1C<377>,R3 ;CLEAR UPPER BYTE 
MOVB 3, PRBREC 3FOR ERROR T 
XOR RO.R3 sXOR EXPD/RECV 
CMPB CR1 D+ .CR2D- sEXPD = RECV? 
BEQ $ :0R IF YES 
INC PRMNO ;UPDATE ERROR COUNT 
CHP PRMNO, 06. sPRINTED 8? 
BHI 30% BR IF YES 
27%:  PRINTX @PRBMSG,R4, ,PRBREC, 
MOV RS, -($P) 
nov PRBEXP “£353 
MOV R4,-(SP) 
MOV -(SP) 
MOV $3.6 5 
TRAP CSPONTX 
ADO 614,SP 
FORCEXIT 50$ :@aD 
$08 BR 35% :aa0 
FORCERROR 27$,NOTSSR ;a@aD 
35%: 3;aaD 
INC R4 ;NUMBER OF THE NEXT 
CMP R4,RS sOONE ALL YET? 
8GE 504 :0R IF YES 
BR 20% 300 ANOTHER 
5S0$:  PRINTX @PRBTOT.PRMNO ;PRINT TOTAL ERROR COUNT 
MOV PRMNO, -(SP) 
MOV epreToT -($P) 
MOV 62,-(SP5 
MOV SP, 


SEQ 0066 


E6 
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SEQ 0069 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
015436 104415 TRAP —- C$PNTX 
015440 062706 000006 ADD $6, SP 
2679 015444 000207 RTS PC :RETURN 
5681 015446 045 116 045 PRBMSG: .ASCIZ ‘sNsA BYTE OsD2NA EXPD: sO3SA RECV: SO38A XOR: 803° 
2682 015533 045 116 045 PRBTOT: |ASCIZ ‘sNsA NUMBER OF BYTES IN ERROR = sD2’ 
2684 015600 000000 PRBEXP: :WORD 0 sEXPD 
5685 015602 000000 PRBREC: ‘WORD 0 RECV 
2686 “SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
3° 
5688 
2688 }PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
$333 } INPUTS: 
5693 ; Ri RECEIVED DATA 
5694 ; R2 EXPECTED DATA 
2695 3 
2696 s- 
5697 
5698 015604 BGNMSG EXPREC 
015604 EXPREC: : 
2699 015604 004737 010022 JSR PC, PRIXOR ;PRINT THE DATA 
5700 015610 
015610 10017: 
015610 104423 TRAP C$MSG 
2701 .SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
S708 : 
2704 }PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
5706 ; 
5707 PINPUTS: 
2708 3 
5709 ; Ri RECEIVED DATA BYTE 
5710 ; R2 EXPECTED DATA BYTE 
2711 3 
sie 3- 
571 
5714 015612 BGNMSG EXPBREC 
015612 EXPBREC: : 
2715 015612 004737 007672 JSR PC ,PRIBXOR }PRINT THE DATA 
5716 015616 
015616 10020: 
015616 104423 TRAP — C4MSG 
a 
2719 .SBTTL RAMERR - PRINT RAM AND PACKET DATA 
$751 
2722 }PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
734 LINPUTS: 
5758 ; Ré POINTER TO COMMAND PACKET 


2727 3 
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RAMERR - PRINT RAM AND PACKET DATA 
sIMPLICIT INPUTS: 
RAMDATA 
RAMSIZ 
IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


A BGNMSG RAMERR 
004737 014106 ** JSR PC, PRAMPKT ;PRINT RAM/PACKET DATA 


L10021: 
104423 TRAP C$MSG 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
}INPUTS: 
; Ra POINTER TO COMMAND PACKET 
}IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 
ERRHI HIGH ORDER TEST ADDRESS 
ERRLO LOW ORDER TEST ADDRESS 
IMPLICIT OUTPUTS: 


RAMSIZ SET T0 0 


RAMTADD 
RAMTADD: : 
004737 010354 JSR PC ,PRITADD sPRINT TEST ADDRESS 
004737 014106 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 


L10022: 
TRAP C4$MSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
I ad 


{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
h INPUTS: 

: Ri RECEIVED DATA 

; R2 EXPECTED DATA 
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SEQ 0071 
RAMEXP - PRINT RAM EXPD/RECV DATA 
2779 ; R4 CONTROLLER RAM ADDRESS 
2780 i- 
2761 
2782 015640 BGNMSG RAMEXP 
015640 RAMEXP: : 
2783 015640 042701 177400 BIC @t0<377>,R1 s;SAVE EXPD RAM DATA BYTE 
2784 015644 042702 177400 BIC @1C<377>,R2 sSAVE EXPD RAM DATA BYTE 
2785S 015650 004737 010146 JSR PC ,PRIRAM sPRINT THE RAM ADDRESS 
2786 015654 004737 010022 JSR PC ,PRIXOR sPRINT THE DATA 
2787 015660 ENDMSG 
015660 L10023: 
2788 015660 104423 TRAP C$MSG 
$790 -SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
790 3° 
2791 : 
2792 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
se; ;AND TIMER A,B HEADER MESSAGE 
3 
2795 3 INPUTS: 
2796 b 
2797 3 R1 RECEIVED DATA 
2798 3 R2 EXPECTED DATA 
2799 i- 
2800 
2801 015662 BGNMSG TIMEXP 
015662 TIMEXP: : 
2602 015662 PRINTX #TIMSGO sPRINT HEADER 
015662 012746 015710 MOV @TIMSGO, -C SP) 
015666 012746 000001 MOV #1,-(SP) 
015672 010600 MOV SP ,RO 
015674 104415 TRAP = C$PNTX 
015676 062706 000004 ADD 04,SP 
2803 015702 004737 010022 JSR PC, PRIXOR s;PRINT THE DATA 
2804 015706 ENDMSG 
015706 L10024: 
sees 015706 104423 TRAP C$MSG 
sont 015710 045 116 04S TIMSGO: .ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2’ 
28609 -SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
at ; 
3 
cele sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
3 
2614 s INPUTS: 
2615 s 
2616 3 R1 CONTENTS OF TSSR 
2817 5 R2 DATA WRITTEN (8 BITS) 
2618 ’ 
2819 s- 
2820 
2821 016010 BGNMSG BADSSR 
016010 BADSSR: : 
2822 016010 010246 MOV R2,-(SP) sSAVE DATA TRANSFERRED 


2623 016012 042702 177400 BIC 0177400,R2 sGET JUST ONE BYTE 


H6 
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BADSSR - PRINT 
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TSSR ERRORS ON DATA TRANSFERS 


016050 
000002 


116 


L1002S: 


—™ here 3% »R2 


TRAP 
04S XFERASC: 


@XFERASC, -(SP) 
$2, -(SP) 


SP. RO 
CsPNTB 

$6,SP 

(SP)+,R2 sRESTORE R2 

PC, PRITSSR sDECODE TSSR CONTENTS 
C$MSG 

-ASCIZ ‘sNSA Date Transferred = #03' 


SEQ 0072 
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SEQ 0073 
GLOBAL SUBROUTINES SECTION 


2830 .SBTTL GLOBAL SUBROUTINES SECTION 
28 **e 
3633 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

34 ; THAT ARE USED IN MORE THAN ONE TEST. 
2836 ; .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
i ; 

3 
5840 ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
Seal 1BY WAITING INTO THE TSSR REGISTER. AFTER THE INIT 
2842 ;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
2e43 ‘DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
2645 * }INPUTS: 
3828 : ; RS ADDRESS OF FIRST REGISTER 
2849 sOUTPUTS: 
5850 
3852 : CARRY Ce ET Sart UAs OKAY 
Sea ; iad Foire choo 
Sass }CALLING SEQUENCE: 
3$3$ ; SS.R5 
5858 ; JSR PC, SOFINIT 
5859 ; BCS CONTINUE 
5860 ; ERROF ;REPORT FATAL ERROR 
2661 3 
ge 
3864 016104 SOF INIT: : 
5865 016104 SAVREG ; SAVE THE REGISTERS 
5866 016110 012765 000000 000002 Mov 0, TSSRCRS) ; DO THE INIT. 
5867 016116 004737 016360 ysR BC MATTP ; WAIT F 
5868 016122 016500 000002 MOV TSSR(RS),RO GET THE TSSR REGISTER 
5869 016126 010004 MOV Ra i 
5870 016130 042704 176277 BIC @tC<HIADOR!OFL>, 
5871 016134 052704 002200 BIS @SSR'NBA,R4 iR4 HAS EXPECTED CONTENTS 
5872 016140 020400 R4.RO ‘ONLY EXPECTED PITS SET ? 
5873 016142 001402 Beg St :8R OKe 
5874 016144 000241 CLEAR THE CARRY FOR ERROR 
016146 000401 108 G0 TO EXIT 


S$: SEC sSET 
2677 016152 000207 10%: RTS PC ;RETURN TO CALLER 





J6 
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CHKAMB - CHECK TSSR FOR AMBIGUITY 
-SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
" 


i THIS og ate TESTS THE CONTENTS OF THE TSSR REGISTER 
_— AMBIGUITY 


PINPUT : 

RO CONTENTS OF TSSR 
OUTPUT : 

RO CONTENTS OF TSSR 


CARRY SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


z 
d 


:SAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 
ese.n RO its BIT 15 SET ? 
ANCH IF YES 
@1C<NBA:OFL 1SSRIHTADOR> RO ANY OTHER BITS SET ? 
T BE AN ERROR 


Eege 
4 


? 
IF READY BIT IS SET. 
iI oo eS BIT SET ? 


CLEAR ALL BUT T NATION CODE 
AL T BE SET 


BNE 
BIT 
BEQ 
BIC 
CMP 
BNE 
BR 

BIT 
BEQ 
BIT 
BNE 


6 sERROR 
Br rasests »RO is , 


i enéIeu0Us 
50% 

sSHOW SUC - NO AMBIGUITY 
PC sRETURN TO CALL LER 


{ASP 
no oO 








K6 
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ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 

-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
DEFAULT DISPLAY INTERRUPT 


ee gS 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU'REGISTERS AND DISMISS. 


ay 


abet 


s BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 


; IOKCKIN=81T7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
IOKSTP=B1TO s EXPECT “STOP” INTERRUPT. 


ines MASK -- SAYS EXPECTING INTERRUPTS 
FLAG a “says WE GOT ONE CIF POSITIVE) 


3 
2 


33 
ea 


intreace 
pSAVED INTERRUPT VECTOR: 
VEC: .WORD 0 
iSAVE CPU PC 
NTCPC: .WORD 0 
SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO 2°$P) ;SAVE RO 
I GET POINTER TO VECTORS 
TINT G (RO) 3SET UP INTERRUPT VECTOR 
@PRIO7, (RO)- 
(SP), RO sRESTORE RO 
(SP), -(SP) 
60,2¢sP) :SET CPU TO LEVEL 0 


TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
@PRIO7 ,2( SP) 
INTR - INTERRUPT HANDLERS 
INTR ;DEFINE INTERRUPT ENTRY 
#1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 
@1OKSTB,  INTMASK sEXPECTING STOP INTERRUPT? 
@IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


Ya REGISTERS, MSG BUFFER, ETC. 


2935 
2936 
2937 
2938 
2939 
2940 
2941 
sass 
2944 
2945 
2946 
2947 
2948 0 
2949 
2950 
2951 
2954 
2955 
2956 
2957 
2958 
2959 0 
2960 
2961 


L10026: 
RTI 
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- WAIT FOR SUBSYSTEM READY 
.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
PINPUTS: 
ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


1s sNOP WHEN SUPER FIXED 
s DO A SUPVSR BREAK FIRST. 


CSBRK 
#11000 “e 325-APRIL - 83 REV B sie}? MSEC TIMER 
SSRCRS5), ;READ THE TSSR REGI 
sTEST FOR READY “eit SET 

3% : EXIT ON STOP FLAG. 

i ; WAIT 100 USEC 

tial 

eehaeten 

~6¢PC) 

-22(PC) 

.-20 


7 016360 


r 


gees 


a 


MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 


mine 
oo oo 


CHANGING CARRY BIT 


2 
= 
wn 
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CHKTSSR - CHECK TSSR FOR READY 
~ 3003 .SBTTL CHKTSSR - CHECK TSSR FOR READY 


THIS ROUTINE WAITS FOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


INPUT: 
st 3 RS ADDRESS OF CSR REGISTERS 


3013 rOUTPUT: CONTENTS OF TSSR 
Bs gore 


CLR = NOT READY AMBIGUOUS, OR SC SET 


3007 


sole 

3017 016446 JSR sWAIT FOR READY 

3018 016452 20 ae IF TIME OUT 
004737 JSR sTSSR_AMBIGOUS? 


iBR IF YES 

sSPECIAL CONDITION SET? 
15% sBR IF 
@<SCE !BIS :RMR!INXM> ,RO SANY ERROR BITS SET? 
15% IF NO 


20% 


RT PC 
“SBTTL XNXM © - CHECK FOR NONEXISTENT MEMORY 


; “ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
ON RET eal ES vey ~ ree 
“c* » ALL ADORESSES OK. 


sTEST “C* AND PROCEED. 
s SET BUSERR VECTOR. 


west” THE fae cat ES). 
sIF ANY T Mi AT 2. 


1 OTHERWISE 
1BR IF FINISHED (NO NEXM’S). 


SET ND CONTIMEE 
GOT ONE, SET FLAG... 


R3 
03% .(SP) 
--AND DISMISS INTERRUPT. 
4 :. ..AND GIVE BACK THE VECTOR. 


$4 ,RO 
cscvec 
R3 


s0ID WE cates ONE 7? 
°4 = « SKIP NEXT. 


NO 
MES, Sc* od, CAL) © NEXM ADDR. 





N6 
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SEQ 0078 
TSTLOOP - CHECK ITERATION COUNT 

3057 .SBTTL TSTLOOP - CHECK ITERATION COUNT 
3059 } SUBROUTINE TO EXECUTE TEST ITERATIONS. 
3060 ; EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
3061 ; LOOP COUNTER IS SET BY "BEGIN. TEST” MACRO. 
soe8 ; CALL: LOOPTO ARG 
3064 
3065 016566 +STLOOP: ; : 

016566 005737 002162 ist —s/NOITS- ; ITERATIONS INHIBITED? 
3067 016572 001006 BNE i$ ; YES. 
3068 016574 005737 002176 1st QvP ; NO. 

01 100403 BMI sos {LOOPS DISALLOWED IN QUICK PASS. 
3070 016602 005337 002210 DEC — LOOPCNT ; BUMP LOOP COUNTER. 
3071 016606 001002 BNE 38 
3072 016610 000241 1s: cLe ;LOOP DISALLOWED, OR DONE. 
3073 016612 000401 BR 3$ 
3074 016614 000261 2s: SEC ;LOOP ENABLED. 
3075 016616 000207 S$: RTS ss PL , 
sor? .SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3079 } PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3080 } INCREMENT “TESTK" TO INDICATE THE NUMBER OF TESTS 
3081 | IN THE CURRENT RUN SE 
3082 1 CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
sone }INPUT: 
308g ; RO POINTER TO TEST ID ASCIZ STRING 
3088 }OUTPUT: 
3090 : RS ADDRESS OF FIRST DEVICE REGISTER 
038 IMPLICIT OUTPUTS; 
3034 ; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3096 sSIDE EFFECTS: 
pred . INTERRUPT LEVEL TS RASIED TO LEVEL OF 
st] ry WE DEVICE UNDER 
100 ry 
101 t- 

$3 016620 TSTSETUP: : 


ee. 


ae ie Bene rer. 


ERROR ) 


A ALLS UNG 
ee olmd eel 
SERRE 

; 
3 


_ 
ERE 
a 
" 
bo yaaa 


B7 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
052760 160000 003172 


160001 003172 3%: 


000000 
012737 
013700 


177777 003106 2%: 
002174 


017014 
000002 


18: 


S$: 


TNAM: 


3s IF 


ot wo oF enoHT 
NORMAL ERROR 
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@160000,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
NXRERR NO DEV PRINT IT 


tieRDe 
tor 


2s 
#160001 
2,NOI 


NIT 


DEVICE HERE -- 


ERTABL(RO) s FLAG ERROR IN THE ERROR TABLE 
s DEVICE NOT IDOLE 


DROP THE UNIT 


s ABORT THE PASS 


GET THE OPERATOR FLAGS. 


s PRINT = TEST NUMBERS? 


BR 
iGET THE ID MESSAGE 
sDISPLAY THE TEST ID 


s_ BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


sFIX UP THE STACK 
s ADDRESS OF TSV REGISTERS ON UNIBUS 


PC 
‘SSSTSA Test’ 


TSTEND 
EST 
ERROR REPORT 


PRINT THE 


- PRINT ERRORS RECEIVI 9D 


NUMBER OF ERRORS RECEIVED 
TING IS DISABLED (FLA:IER). 


BR IF “IER” NOT SET. 
PR ERROR COUNT. 


’ 
3 INT 











C7 
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TSTEND - PRINT ERRORS RECEIVED 
017060 
3145 017064 


062706 000006 » SP 
000207 1$: RIS Be 
3146 
3147 017066 


000000 ERRK: 0 s LOCAL ERROR COUNT. 
3148 017070 045 101 040 ESUM: -ASCIZ /#A #D8A_ERRORS/ 
3153 017107 105 122 122 EMAXDU: . acess ZERROR LIMIT REACHED -- DROPPING UNIT/ 


SEQ 0060 


MACRO VOS.03 Tuesdey 28-Apr-87 09:02 Page 62 


INCERK - INCREMENT LOCAL ERROR COUNT 


7206 
3166 017210 
3168 017212 


3184 0 
31865 017310 


002174 


002164 


iNcERK: 


1$: 


1%: 


2s: 


-SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
te 
s ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


INC 


aehmiasess 


papag 2 


Eeeoeas 
83 w 


34 


ei 


nee 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 
GET UNIT NUMBER, 

AND MAKE IT A_ WORD OFFSET. 
RO'GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE ICE ERROR COUNT 
p70 OVERFLOW THE FIELD? 

YES -- BACK IT WP TO 7777. 
REST 


RETURN TO CALLER. 
SAVE RO 
GET UNIT NUMBER 

AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIELD 
Is GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
GET OPERATOR FLAGS 

DROPPING INHIBITED? 


IF YES. 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 





SE@ 0061 


E7 
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CKDROP - CHECK IF UNIT SHOULD BE DROPPED 


367 -SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 

ited IF UNIT SHOULD BE DROPPED 

3191 017312 MOV RO, -(SP) 
FORCERROR 


1$,NOTSSR 
C$RFLA 
@1DU,RO 
11600 (SP),RO 
012737 $-1,0UFLG 
UNITN 


013700 MOV UNITN,RO 
104451 $D00U 


c 
104444 C$O0CLN 
012600 : MOV CSP )-,RO 
000207 PC 
-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


tonr 1G: 
PC, SOFINIT 


R 
“SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 

; SUBROUTINE - ENABLE MEM MGT. 

KTON: TST KTFLG GOT KT? 
BEQ 18 NO. 
MOV 1,SRO YES. ENABLE KT12. 

1s: RTS PC 

} SUBROUTINE - DISABLE MEM MGT. 

KTOFF: TST KTFLG GOT KT11? 
BEQ is NO. 
NOP 
NOP 
MOV #0, SRO DISABLE KT. 
RTS PC 
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SETMAP - SETUP PAR6 MAPPING 


323 


COCK 
aes 


3234 
3235 


323 
3238 
3239 


% 


017476 127 
017502 


ocereroneesapeossseerereesars 


nee 
Sa 


Ke 
. 


uate SEER SERS 


01 
017536 004737 


-SBTTL SETMAP - SETUP PAR6 MAPPING 


| id 
THIS ROUTINE SETS UP 


KERNEL PAR6 TP HANDLE 
sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PARE. 


INPUTS: 
: RO HIGH ORDER ADDRESS BITS 
: Ri LOW ORDER ADDRESS BITS 
;OUTPUTS: 
: RO OFFSET INTO BLOCK WITH PARG6 BIAS (I.E. THE ADDRESS) 
: CARRY SET IF SUCCESS 
: CLR IF ERROR 
ge THAP: 
SA ;SAVE R1-R4 UNTIL NEXT RETURN 
003126 TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10% ’ NO 
MOV ‘ R1.R2 sSAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
ROR Ri sMAKE IT DOUBLE PRECISION 
000177 BIC #177,R1 sALINE FOR LOWER 4K BOUNDARY 
006000 oe Ri #6000 sHIGHER THAN EXISTING MEMORY? 
s 3 i :8R IF YES 
172352 MOV 1, @OKIPARS sSETUP MAPPING REGISTER PARS 
60000 BIC #160000 ,R2 ;SETUP DISPLACEMENT IN PAGE 
ADO Re ;ADD IN PARS BIAS 
MOV ° sRET RO 
SEC 3SET ss 
BR 15% ; 
108: cue 3SET FAILURE 
158: RTS PC RETURN 
“SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
+” ILL MEMORY WITH A BACKGROUND PATTERN 
; INPUTS: 
; RO = BACKGROUND PATTERN 
; FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
4 KTFLG » SET TO HIGHEST MEMORY LOCATION IF > 26K. 
} OUTPUTS: 
; NONE 
g° 
FILLMEN: 
sSAVE Ri- -RS UNTIL NEXT RETURN 
017404 JSR PC .KTOFF ;DISABLE KT. 


SEQ 00863 
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S333 


017570 


SuiSoSeuesese 


5 


$a888 
: 


3307 017662 
3308 


3323 017756 
3324 017762 
3325 017766 
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FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


003120 
003122 


003126 
017366 
003146 


172352 
006000 


007600 


172516 


10%: 


30%: 


35%: 


RTS 


sCOPY TEST PATTERN 
FIRST FREE LOCATION 
FREE SPACE oe 26K. 


sHIGH ORDER ADDRESS S 
iGET >26K START ADDRESS CIN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
Me TEST PATTERN IN >26K ADDRESS 
PARS MAPPING AREA? 


;8R IF 
sBACKUP INTO PARS MAPPING BEGIN 


sPOINT TO NEXT 4K BLOCK >28K. 
END MEMORY ? 

3 IF 

311/23A? 

3 NG 

3;GET SRO 


iNO KEEP GOING 
REACHED 18 BITS? 

NO KEEP GOING 

{SET 22 BIT RELOCATION 


sKEEP ee - ETC 
s DISABLE K 


SEQ 0084 


H7 
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CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
-SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
+ COMPARE MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 
RO = BACKGROUND PATTERN 


FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K 


J 


sSAVE R1-RS UNTIL NEXT RETURN 
sCOPY TEST PATTERN 


sDISABLE KT. 

iGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
eis vee LOCATION EQUAL TO EXPD? 


Ss 
sSAVE EXPD FOR ERROR REPORT 
— RECV FOR ERROR REPORT 


iPOINT TO NEXT ADDRESS 
DONE ALL MEMORY IN FREE SPACE? 


Et TT oun 
; Yes. 


sHIGH ADDRESS STAR 
sGET >26K START ADDRESS CIN 32W BLOCKS) 


Cmerent BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


@ 
Lon 
o 


SBRSSSESSR ORE RS 
RggSAese 82° RSA 


“SS: 


tt 26K LOCATION EQUAL EXPD? 


3305 Os0ia4 eave HIgh ORDER IN ERROR 


ax 





17 
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CHPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


SEQ 0086 


020150 010137 002234 MOV R1,ERRLO :SAVE LOW ORDER IN ERROR 
$Ese Gasieo Gltssr 90888 rey {abcmeev AVE ech FON En ont 
. i 
020164 000431 BR. $ , 
020166 062701 000002 32%: ADD @2,R1 sUPDATE NON PARG ADDRESS 
3 020172 ADC ;MAKE IT DOUBLE PRECISION 
390 020174 062704 000002 ADO 62,R4 :UPDATE PAR FORMAT ADDRESS 
3391 020200 7 140000 cre R4. 6140000 END OF P PARS MAPPING AREA? 
392 020204 988785 0 303 ;6R 
3393 020206 162704 020000 SUB #20000 ,R4 38 INTO PARG MAPPING BEGIN 
3394 020212 062737 172352 ADD $200, @8KIPARS ;POINT TO NEXT 4K BLOCK >28K. 
395 020220 023737 172352 003126 CMP @OKIPARS,KTFLG ;END OF MEMORY? 
020226 101744 BLOS $ :6R I 
3397 020230 004737 017404 50$: JSR PC ,.KTOFF ;TURN OFF MEMORY MAPPING 
3398 020234 00024 cLC ;SET FAILURE 
3350 poate Sos Tet 017404 55$ oR Bef ctOFF TURN OFF MEMORY MAPPING 
3489 020244 000261 SEC T SUCCESS 
3402 020246 000207 60$: RTs PC 
3 .SBTTL REGSAV - SAVE R1-RS ON STACK 
t iad 
3405 3 
3409 sROUTINE TO 
7 ;SAVE R1 THROUGH RS ON THE STACK 
3408 $ 
3409 sCALLING SEQUENCE: 
3 
sii ; JSR RS, REGSAV 
3 
3413 sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
3414 ; THE ane ROUTINE OF THE CALLING ROUTINE, 
3415 3 THE conTRO TO THIS ROUTINE TO RESTORE 
sais ‘eed 
18 THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
3419 :CALLED VIA A JSR PC INSTRUCTION 
3420 3 
3421 3- 
3422 
3423 020250 REGSAV: 
3425 020252 010346 MOV R3.-(SP 
3426 020254 010246 MOV Re. -( SP} 
3427 020256 010146 MOV R1,-(SP 
3428 020260 010546 be MOV RS. -(SP) 
3493 OS0see $3832 | JSR Sees 
S483 Gsosts Siseos nov Fie 
3433 020274 01260 MOV Sp 3. (RS 
3434 020276 012604 MOV CSP) Ra 
35 020 012605 MOV SP)-.R5 
3436 020302 7 RTS PC 


J7 


TSV3 - GLOBAL AREAS 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


105 
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116 


.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
| ad 
;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
} INPUTS: NONE. 


3 
OUTPUTS: 
; RO OCTAL NUMBER FROM THE OPERATOR 
: 
;CALLING SEQUENCE: 
; JSR SCC, GETPAT 
a 
GETPAT:: 
SAVREG SAVE THE GENERAL REGISTERS 
1s: GMANID DATASC,PATDAT,O, $77,0.377.NO 
TRAP CAGMAN 
"WORD PATDAT 
“WORD TSC 
“WORD DATASC 
“WORD 377 
“WORD  T$LOLIM 
“WORD ‘TéHILIM 
100008 : 
BNCOMPLETE 1s ;RETRY IF ERROR 
MOV —s- PATDAT.. RO ;DATA PATTERN FROM OPERATOR 
RTS PC RETURN TO CALLER 


LOCAL DATA AREA 
- 


PATDAT: .WORD 0 TEMPORARY STORAGE FOR DATA 


124 DATASC: LASCIZ ‘ENTER DATA PATTERN’ 


SEQ 0087 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
-SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


t id 
sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 


LINPUTS: 
; RO SS OF ASCIZ STRING OF MENU 


ADORE 
3 Ri MAXIMUM ALLOWABLE OPERATOR RESPONSE 


}OUTPUTS: 
: RO NUMBER OF THE OPERATOR'S SELECTION 


bETSEL: : 
SAVREG 


sSAVE GENERAL REGISTERS 
THE MENU ADDRESS 


1$: MOV 
2s: ¢ OF ASCII ? 
BEQ $ sBRANCH IF ALL LINES DISPLAYED 
sDISPLAY THE MENU 


2¢ 
MENASC ,MENRES.D, -1,0, -1,NO 
C$GMAN 
10001% 
MENRES 


103352 § 
013700 MOV sGET THE OPERATOR'S REPLY 
020001 a ze MAXIMUM ALLOWED 


101411 os +BRANCH OK 
cont OMENERR ) sDISPLAY ERROR MESSAGE 


_ sRETRY 
sRETURN TO CALLER 
—— Menu Selection Too Lerge ess’ 


‘Enter Menu Selection: ‘ 
-WORD O 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3498 ia .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
3301 ;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
LINPUT: 

: NONE. 

;OUTPUT : 

; CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
; 1 MANUAL INTERVENTION IS OK 

i SIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
od EXECUTED IF MANUAL INTERVENTION IS NOT 


sSAVE THE REGISTERS 
sSEE IF MANUAL INTERVENTION OK 


sBRANCH IF ALLOWED 
sPRINT THE WARNING MESSAGE 


;sCLEAR CARRY FOR ERROR 
sRETURN 


‘SNSA eee Manuel Intervention not Allowed - Test Aborted ¢=se' 
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ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
-SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


3; GET 1ST FREE ADDRESS... 
3...AND WORD COUNT. 

s GET NUMBER OF UNITS 

3 TAKE AWAY 7 WORDS PER UNIT 
3sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 


§SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESSESSESssS 


sOK TO SET FLAGS 

sRETURN WITH FLAGS CLEAR 
sSAVE —s COONS 

sADD ONE T 


sGET BDV11 PCR ADDRESS 
sTRY TO WRITE TO IT 
GET RESULTS ? 
BE 11/238 
T23A FLAG 
#170000 ,L $HIME Soe tte 78 ou0 oe WRONG 


1BR 40% FOR 
ewies sTELL THE SYSTEM TYPE 


~« 
pr 


TRAP 
MOV 
ADO 
MOV 
SUB 
MOV 
SUB 
DEC 
BNE 
MOV 
ADD 
SUB 
MOV 
NOP 
MOV 
MOV 
ADO 
JSR 
BCC 
BR 
MOV 
ADO 
MOV 
INC 
MOV 
CMP 
BNE 
INC 
BIC 
NOP 
PRINTF 
BR 
INC 
NOP 


sBR 40% FOR RELEASE 
sTELL THE SYSTEM TYPE 


sRETURN 


3 
H 
3 
| 
: 
© 


33569 
33570 021116 
3571 021116 


8 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


.SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS . 
t¢ 
}ROUTINE TO INIT KT-12 
8 
ge 
KTINIT: ; 
KTFLG INIT >28K MEMORY FLAG 
KTENABLE INIT TEST >28K FLAG 
L ¢HIME 61577 GOT ENOUGH MEMORY (>28K)? 
APERRVEC ,RO SAVE OLD ERR VEC PTR. 
02% , ASERRVEC SET ERR VEC PTR. 
aesRo T KT11? 

(TRAP IF NO). 

L$HIME , KTFLG YES. SET KT FLAG. 
$7777 .KTFLG GOT 22 BIT MACHINE? 


NO 

ALIGN ON BOUNDARY 
RESTORE OLD ERR VEC PTR. 
RO = AR DATA 


KIPAR REG. 
BUMP_AR DATA BY "4K". 
AT “I/0"? 


1$ : 
ga TOSS, O78 2 YES. SET KTPAR7 FOR I/0. 


CLR 
CMP 
MOV 
MOV 
NOP 
MOV 
CMP 
BMI 
BIC 
BR 

BIC 
MOV 
CLR 
MOV 
MOV 
MOV 
ADO 
CMP 
BNE 
MOV 
BR 

MOV 


6% ,(SP) . § SET UP RETURN 
s RTI TO NEXT LOCATION 


RO, BOERRVEC RESTORE OLD ERR VEC PTR. 
PC 


D D 
gs 
w be 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3613 . 
seis : SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
seis ; Requires that SOFINIT and WRTCHR have been done previous to call. 
3618 ; 
3619 s INPUTS: 
3620 3 CURRENT UNIT NUMBER 
3621 sOUTPUTS: 
3e56 : The Extended Features Switch is set. 
3624 a 
3625 
3626 
sess ; COMMAND PACKET. 
M334 021274 . = <,e3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
3631 021274 000000 CMDPKT:: O 31ST WORD IS TSOS COMMAND. 
3632 021276 000000 fe] s2ND WORD IS THE BUFFER LOW ADDRESS. 
3633 021300 000000 0 33RD WORD IS THE BUFFER HIGH ADDRESS. 
See 021302 000000 0 ‘4TH WORD IS THE BYTE/RECORD/FILE COUNT. 
ts 3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
3638 021304 000000 WSMBK:: O 31ST WORD:: SEL O 
3639 021306 000000 0 s2ND WORD:: SEL 2 
3640 021310 000000 0 :3RD WORD:: SEL 4 
seas _— 
3643 : SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
seas : 
3646 s INPUTS: 
3647 sOUTPUTS: 
3648 3 The NXMFLG is set if we can test. 
 +e44 3 The NXMLO and NXMHI addresses are setup. 
3651 ' 
seag 021312 MEMCK:: : 
3654 021312 SAVREG sSAVE THE REGISTERS 
3655 021316 005037 003132 R NXMFLG sCLEAR THE FLAG 
3656 1322 005037 003134 CLR NXMLO sCLEAR THE TEST ADDRESS LO 
3657 021326 005037 003136 CLR NXMHI sCLEAR THE TEST ADDRESS HI 
3658 021332 005737 003142 TST T238 21S IT A 11/238? 
3659 021336 001407 BEQ 1$ 3sNO 
3660 1340 023727 002120 007777 CMP L¢HIME ,@7777 ' GREATER THAN 128K 
3661 1346 103406 BLO 
3662 021350 004737 021466 JSR PC .NXMTST 1 SETUP THE ADDRESS 
3663 021354 000427 BR 133 sSET THE FLAG AND EXIT 
3664 021356 005737 003140 1$: TST T23A ids IT A 11/23A? 
3665 021362 001413 BEQ 4$ 
3666 023727 002120 005777 2%: CMP L$HIME ,@S5777 iGREATER THAN 96K 
3667 021372 101023 BHI iYES 23A/238 WITH 128K MEMORY 
3668 021374 023727 002120 003777 CMP L$HIME , 03777 :GREATER T THAN 64K BUT LESS THAN 92K? 
3669 021402 103403 BLO 4g 3sNO, CHECK 24K 
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SEQ 0092 











TSV3 - GLOBAL AREAS 
KTINIT 


- SETUP 


0 021404 
seri 021410 
36 3278 021412 

021420 
3674 021422 
3675 021426 
3676 021434 
3677 021440 


3678 021442 
3679 021444 


3727 S62 
3726 021572 
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KT11 MEMORY MANAGEMENT REGISTERS 


004737 021466 JSR PC ,NXMTST sSETUP THE ADDRESS 
000411 BR 133 3SET THE FLAG AND EXIT 
023727 002120 001577 4%: CMP L $HIME , 01577 ;GREATER THAN 24K BUT LES 
103410 BLO 14% 3NO, TELL THEM AND EXIT WITH FLAG CLEAR 
004737 021466 JSR PC .NXMTST sSETUP THE ADDRESS 
062737 000077 003136 ADO 077 sFOOL THE 11/02 — 11/03 
005237 003132 13%: INC NXMFLG 3SET THE FLAG 
000411 BR 15% sEXIT 
000410 148: BR 15% NOP FOR PRINTOUT 
PRINTF @NOMEM ;TELL THEM & EXIT #eeNO PRINTssess 
012746 005456 MOV @NOMEM, -( SP) 
012746 000001 MOV #1,-(SP) 
01 MOV SP‘ RO 
104417 TRAP CSPNTF 
062706 000004 ADD 64,SP 
000207 15$: RTS ;RETURN 
3° 
; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
3 
; OUTPUTS : NXMLO, NXMHI ;SETUP WITH NXM ADDRESS 
3 
* 
013701 002120 NXMTST: MOV LSHIME. R1 sGET TOP OF MEMORY 
062701 000200 ADD sMAKE IT 1/0 BLOCK OR OTHER NXM 
042701 000177 BIC 2177 Ra 
010102 MOV R1,R2 sRESAVE RESULTS 
000006 .REPT 6 
ASL R1 ;PUT IN PLACE FOR XFER 
010137 003134 fev R1,NXMLO ;SAVE TEST ADDRESS LOW 
000012 .REPT 10: 
ASR :PUT IN PLACE FOR XFER 
042702 177700 are 0177700, R2 :00N'T WANT ILA 
010237 003136 MOV .NXMHI SAVE TEST ADDRESS HIGH 
000207 RTS ;RETURN 
TITLE TSV4 - MISCELLANEOUS SECTIONS 
TSv4 
TSV4:: 
.SBTTL PROTECTION TABLE 
BGNPROT 
L$PROT:: 
177777 «177777» «177777 WORD -3, -2, -1, -3 sNO DEVICE PROTECTION REQUIRED. 


SEQ 0093 
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INITIALIZE SECTION 
.SBTTL INITIALIZE SECTION 
}THE INITIALIZE nse STION C CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNI PASS. 
HIF "START" OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
:IF “CONTINUE”, NOTHING IS REQUIRED. 
3 
gce 
LINSERT TEMPORARY JUMP TO ODT 
a NIT 
L¢INIT:: 
40$: CL 
UP PRIMARY MESSAGE FOR REPLACEMENT 


sCLEAR RAM SIZE FOR RAMERR ROUTINE 


sUNTT cIN RANGE? 
{DROPPED UNIT? 
i8R IF YES 


sDROPPED? 
300 NOTHING IF “CONTINUE”. 


s TAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS, BUS-INIT... 
:BUS RESET. 
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INITIALIZE SECTION 
3771 021734 


pp 


NUMBER OF TESTS RUN IN PASS 
ERROR COUNT 


pp 
DDDD 


RETURN TO DEBUGGER 
ry BaENTER THE 
CLEAR THE SUBTEST “SKIPPER” 

+...QUICK VERIFY... 

iS€7 ENVI ; 

INITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


aida et a 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER... 
;CLEAR COUNT OF DEVICES RUNNING 


UNITN +...AND SET NEXT UNIT NUMBER. 
UNITN,LS$UNIT 

SETU 

@-1,0UFLG 

11% 


CSOCLN sABORT, NO MORE UNITS. 


LSUNIT,@1 sHOW MANY UNITS SELECTED? 
NEWPAS iBR IF ONLY 
ANY STILL RUNNING? 


PRINT STATISTICS 


UNTTN. RO ;GET UNIT N P-TABLE POINTER. 
TRAP C4$GPHRD 
BNCOMPLETE NXTU ;8R IF UNIT NOT AVAILABLE. 


o OUFLG sCLEAR “DROPPED” FLAG. 
NC DEV 


CNT 
012001 CRO)-,R1 sGET 1ST REGISTER ADDRESS. 
010137 MOV R1, CSRADOR sADDRESS OF REGISTERS OF UNIT UNDER TEST 
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INITIALIZE SECTION 
012001 


010137 
012721 
013721 


013701 
301 


023727 


002202 
016326 
002204 


000002 
016506 
003110 
177777 


116 


003106 


045 


MOV 
3:MOV 
3MOV 
MOV 
MOV 
MOV 
TST 
BE 


:AST PASS, CHECK T 


$333 


10%: 


Soneeege & 


2s: 


R1. IVE 
@INTR €R1)- 
IPRI,(R1)- 


S$ 


ne ae SEQ 0096 


seey VECTOR ADDRESS 


‘vect 
..AND PRIORITY. 


31ST PASS ?? 
sNO, SKIP THE PASS 1 STUFF. 


T_ DEVICE ADDRESSES ARE VALID, AND 
— THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


UNITN, R1 
$1715, ERTABLCRI) sSAY DEVICE RUNNI 

A sCLEAR ERROR EXTENSION FLAG. 
L$UNIT, #1 ;ARE WE TESTING MULTIPLE UNITS? 
10% :8R IF NO. 

sYES -- GET OPERATOR FLAGS. 
C$RFLA 
»RO sSHOULD WE PRINT UNIT 0? 

$ ;BR IF iP 
@PUNIT , UNITN ;PRINT THE UNIT @ 
UNITN (SP). 
$2.,(5° 
CSPNTF 
$6, SP 
NODEV 
CSRADOR ,R1 sADDRESS OF FIRST REGISTER 
Rl R2 sSTART OF 
@TSSR,R2 , SSR REGISTER 
BC. XNXM sTEST BOTH CONTROLLER REGISTERS... 
Ri, NODEV 1FLAG DEVICE AS NON-EXISTENT 
6-1, 0UFLG ;OROP THIS UNIT. 


SFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


5s. 


SETPRI 
MOV 


L10030: 
TRAP 


PUNIT: 


CsINIT 


sENABLE INTERRUPTS. 


-Oeae /SNSNSAseses TESTING UNIT SD28A eeeee/ 


G8 
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ADD AND DROP UNITS SECTIONS 


3868 
3869 
3870 
3871 
387 
3873 022366 
022366 
3874 022 010001 
3875 022370 006301 
3876 022372 052761 100000 
3877 02 042761 040000 
3878 022406 
02. 01 
022410 012746 022434 
022414 012746 000002 
022420 01 
022422 104417 
oseees 0627 000006 
3879 0224 
022430 000167 
022432 
3880 022434 045 116 
38681 
3882 
3883 022462 
022462 
104452 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 022464 
012737 177777 
3897 022472 010001 
38986 022474 006301 
3899 022476 052761 140000 
3900 000240 
3901 022512 
022512 01 
022514 012746 022540 
2520 012746 000002 
022524 01 
022526 104417 
30 062706 000006 
3902 022534 
022534 000167 
022536 0000 


003172 
003172 


045 


003106 


003172 
000240 


SEQ 0097 


-SBTTL ADD AND DROP UNITS SECTIONS 


THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


: TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME 
: OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
geo 
L$AU:: 
MOV RO,RI ; GET UNIT TO BE ADDED (RO) 
ASL R1 ; MAKE IT A WORD INDEX 
BIS #100000, ERTABL(R1) 3 SET THE “ACTIVE” BIT 
BIC 640000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF $1$,RO 
MOV RO, -(SP 
MOV 614, -(SP) 
ov. SB ROD 
TRAP C$PNTF 
ADD 66, SP 
EXIT AU 
-WORD  J$UMP 
“WORD 110031-2-. 
1s: "ASCIZ /SNSA UNIT SDA ADDED/ 
EVEN 
ENDAU s UNUSED. 
L10031: 
TRAP = C$AU 
tee 
: THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE REMOVED FROM THE TEST LIST. 
b 
3 SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3 “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD* 
: COMMAND, OTHERWISE IN INACTIVE. THe “DISPLAY” COMMAND 
; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
; WHICH ARE STILL ACTIVE. 
: UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
L$DU:: 
MOV -1,0UFLG 
MOV A 
ASL Rl 
BIS #140000, ERTABL(R1) s SAY DROPPED 
240,240,240 3 22222222? 
PRINTF '61$,RO 
MOV -(SP) 
MOV 01%, -(SP) 
MOV e2 +a SP? 
TRAP CSPNTF 
ADO 66 ,SP 
EXIT 
-WORD  J$JUMP 
“WORD 110032-2-. 


H8 
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SEQ 0098 
ADD AND DROP UNITS SECTIONS 

3903 022540 045 116 045 1%: -ASCIZ /sNSA UNIT SDA DROPPED/ 
3904 .EVEN 
3905 022570 

022570 L10032: 
5 022570 104453 TRAP c$0u 

906 tee 

so df : AUTO-DROP CODE SECTION. 
3909 022572 BGNAUTO 

022572 L$AUTO:: 
3910 022572 013705 002200 MOV CSRADOR ,RS sPOINT TO DEVICE REGISTER 
3911 022576 012703 000550 MOV #360. RS sENOUGH TIME FOR 2400' REEL TO REWIND 
3912 022602 004737 016360 10$: JSR PC ,WAITF sWAIT FOR SSR TO SET 
3913 022606 103420 BCS 203 sLEAVE WHEN SSR IS SET 
3914 022610 DELAY 250. sWAIT FOR .25 SECONDS 

022610 012727 000372 MOV 9250. ,(PC)-+ 

022614 000000 . WORD 

022616 013727 002116 MOV LSDLY,CPC)- 

022622 000000 -WORD O 

005367 177772 DEC -6(PC) 

022630 001375 BNE .-4 

022632 005367 177756 DEC -22(PC) 

022636 001367 BNE .-20 
3915 022640 005303 DEC R3 sBUMP COUNTER DOWN 
3916 022642 001357 BNE 10$ sKEEP GOING 
3917 022644 004737 017312 JSR PC ..CKDROP sTRY AND DROP UNIT 
3918 022650 208: 
3919 022650 ENDAUTO 3; UNUSED. 

022650 L10033: 

022650 104461 TRAP C$AUTO 
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CLEAN-UP AND REPORT CODING SECTIONS 


2652 
3929 022652 013705 002200 
3930 022656 005737 003106 
3931 022662 100405 


012765 000000 
004737 016360 


022676 104412 
012746 023142 
000001 


Fis | 724 010446 
3947 022726 012704 003172 
005003 


012746 023247 


SEQ 0099 
-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


; THE ANP CODING SECTION CONTAINS THE CODING THAT IS 
+ EXEC EACH PASS (OR SUB 

+ OSE 10 RETURN DEVICE UNDER TEST To A SeUTRAL STATE. 

geo 


LSCLEAN: : 
CSRADOR RS POINT TO DEVICE REGISTER 
TST OUFLG : “ FLAG IS SET ON.. 
BMI i .AND GROSS CONTROLLER FAULT. 
“DON'T TRY TO XCT CLEANUP CODE. 
MOV 60, TSSR(RS) ;00 SOFT INIT 
- JSR PC, WAITF 
2s: ENDCLN 
L10034: 


TRAP CSCLEAN 
} THE REPORT CODING SECTION CONTAINS THE 

; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 


BGNRPT 
L$RPT:: 
PRINTS @DEVSUM 
MOV @DEVSUM, -( SP) 
mov él. acsPd 
TRAP cyeuts 
ADO 
MOV Ro’ CSP) 
MOV R3,-(SP) 
MOV Ra, -(SP) 
MOV SERTABL, ; GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1s: MOV (R4),R2 i ERROR TABLE ENTRY & TEST IT. 
BEG , IF UNIT NOT RUN 
BIT $81714,R2 ; WAS UNIT DROPPED? 
BNE ; BR IF YES 
BIC 6107777 ,R2 : GET ERROR COUNT FIELD 
PRINTS R3.R2 ; PRINT 
my 88:5 
MOV @DEVONL , - 
MOV #3. -(SP) 
TRAP CSPNTS 
> ca 
2%: CMP R2, #160000 3 WAS UNIT NON-EXISTENT? 
BNE is 3$ ms : BR IF NO 
MOV Ree CoP} 
MOV ODEVNXR, - (SP) 


J8 
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CLEAN-UP AND REPORT CODING SECTIONS 


023016 


3964 
3965 O02 
3966 


3975 
3976 023142 
+ dd yt the 


3978 02324 
3979 023331 
3980 023412 


3962 
3963 023462 
3964 


S3385 


3$: 


4$: 


=" 
D 
3 


SS 


| as 


/BNBADEVICE STAT 
smh T SD38A 


/#A UNIT SD38A 


WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


US SUMMARY :ssN/ 
ONLINE, ERRORS = sDsN/ 
DROPPED, NON-EXISTENT REGISTERSN/ 
DROPPED, NOT READY AT STARTUPsN/ 
ERRORS = sDstN/ 


SEQ 0100 


K8 
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CLEAN-UP AND REPORT CODING SECTIONS 


SE@ 0101 


-TITLE TEST 1 - HARDWARE TEST 1-8 TESTS 


BGNMOD TSV7B 
TSV7B:: 





TEST 1 - HARDWARE TEST 1-8 TEST MACRO VOS.03 Tuesdey 28-Apr-87 09:02 Page 76 


SEQ 0102 
TEST 1: WRITE TAPE MARK RETRY 
4015 -SBTTL TEST 1: WRITE TAPE MARK RETRY 
seis , 
4016 ;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
ssta sREVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 
$ 
4019 3 
4020 ;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 
402 ] 
4022 5 
4023 3 
4024 :- 
4025 023462 BGNTST 
023462 Tl:: 
4026 023462 012737 006356 002172 MOV 1, EPRTSW ;PRIMARY MESSAGE 
4031 023470 012700 032047 MOV e1s12310,n0 sASCII MESSAGE TO IDENTIFY TEST 
4032 023474 004737 016620 JSR pc. Ts ersetur {00 INITIAL TEST SETUP 
4033 023500 012737 000005 002210 LOOPCNT sPERFORM S ITERATIONS 
4034 023506 005037 026424 CLR T2SCNT }CLEAR TAPE RECORD COUNTER 
4035 023512 T29L00P 
4036 3° 
4037 3 
4038 TEST 1, SUBTEST 1 
4040 : VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 
4041 sTAPE 1S POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 
4042 sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
404 * 
4044 3 
4045 : 
4046 t i 
4047 geri BGNSUBS $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
«4 
023512 104402 TRAP =-« C$BSLB 
4048 023514 004737 032076 JSR PC, T29REST : P 
9 023520 004737 032170 JSR PC; T29RT sSET UP OTHER COMMAND PACKET 
023524 004737 JSR PC: T29RT sSET UP OTHER COMMAND PACKET 
4051 023530 012737 023420 026430 MOV #10000. T290LY : DELAY ROUTINE 
023536 016104 10$: JSR PC, SOF INI : TIALIZE ON ROLLER 
023542 103426 BCS 203 :8R IF INIT WAS OK 
4054 023544 DELAY 250 sDELAY ABOUT .25 SECONDS 
023544 012727 000250 MOV €250,(PC)- 
023550 000000 .WORD 0 
023552 013727 002116 MOV LSOLY, (PC) 
023556 000000 .WORD 6 
023560 005367 177772 DEC -6(PC) 
023564 001375 BNE .-4 
3566 177756 DEC -22(PC) 
023572 001367 BNE .-20 
4055 023574 026430 DEC T290LY :BUMP DELAY ROUTINE DOWN 
4056 023600 001356 BNE 10$ :8R, IF MORE DELAY TIME LEFT 
023602 37 002214 INC FATFLG ZERROR COUNT 
023606 010001 MOV Ri sCONTENTS OF TSSR REGISTER 
4062 023610 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
023610 104455 TRAP  CSERDF 
023612 000145 -WORD 101 
023614 003650 .WORD SFIERR 
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SEQ 0103 


023616 012144 -WORD SFIMSG 
4063 023620 015737 002174 026270 20%: UNITN, T290SW sSET UP UNIT NUMBER 


026250 MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
010742 PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
H COMMAND ISSUED OK 
002214 FATFLG ' 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 


36R, IF 


;LOOP IF SELECTED 
sGET THE TSSR 
;SET UP EXPECTED 
1OFF LINE SHOULD NOT BE SET 
s THEY SHOULD BE EQUAL 
IF OFL IS NOT SET 
Brive IS OFF LINE 


sTRY AND DROP DRIVE ; 
;CALL TAPE REWIND COMMAND 
GET TSSR 


SET UP EXPECTED TSSR 
:BR, IF NO PROBLEM 
sPACKET ADDRESS SET UP 


sERROR 
sREWIND NOT ACCEPTED 


LOOP IF SELECTED 
IBICK UP_XSTO 
EXPECTED 
136 BOT 817 IN EXPECTED 
EXP = REC'D 
i8R, IF EQUAL (OK) 
,TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 
sADORESS OF READ BUFFER 

sWRITE TAPE MARK RETRY,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 

iTssue Cc 

;WAIT FOR SSR TO SET 
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TEST 1: WRITE TAPE MARK RETRY 
016501 000002 MOV TSSRCRS sGET TSSR CONTENTS 
100206 beers scréiti :81T2, R2 sSET UP EXPECTED 
R1,R2 sARE gd a 


7 BR, 
FATFLG , ERROR COUNT 
ERRNO, T29WDE , PKTSSR ;TSSR INCORRECT AFTER READ DATA 


;LOOP IF SELECTED 
T29BFR+6,R1 :GET XSTO STATUS WORD 
R1,R2 SET UP EXPECTED 
@81T10,R2 
R1,R2 
170% 
FATFLG 
ERRNO, 

CSERHRD 

107 
29NEF 
EXPREC 
R3 sRESET THE SWITCH 
26% :BR, IF FIRST TIME THROUGH HERE 


CsESUB 
FATFLG,@1S. 
999% 


PC .,.CKDROP 
999%; 
3° 


iTEST 1, SUBTEST 2 
THAT A WRITE TAPE MARK RET 


Cee ENR WHILE THE TAPE 
id feet 7ReD BEFORE THE FIRST Reco nD ONT BUT NOT AT BOT) RESULTS IN 
ALERT TERMINATION, WI INTO BOT (RIB) STATUS BIT 


g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1l.2: 
Cs6SUB 


SET OP OTTER PACKET 
ia} then tases REST 
sBR IF Ingt aas 

eA 2 Teer UAS NOT Ox 


geaceees 





B9 


024176 


TAPE MARK RETRY 


000154 
003650 
012144 
013737 


002174 026270 20%: 


026250 
010742 
002214 


002214 


026372 
026376 
026370 


25%: 


30$: 


40$: 
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TEST 1: WRITE 


MOV 
I 


o 
w 


aa% 


gored teseesees 


UNITN, T290SW 
@T29PACKET ,R4 
PC ,,WRTCHR 


25 
Ay 
ERRNO , WRTMSG , SFIMSG 


ERRNO , T29RWN,PKTSSR 


T29BFR-6,R1 
R1,R2 
81T1,R2 
R1,R2 


40$ 
FATFLG 
ERRNO, T29B80T , EXPREC 


ERRNO, T29WLK , SFIMSG 
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sSET UP UNIT NUMBER 

s SUBROUTINE NEEDS PACKET ADDRESS 
SISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC he 


. WORD 
"WORD 
“WORD 
;LOOP IF SELECTED 
TRAP 
CALL TAPE REWIND COMMAND 
sSET wp EXPECTED TSSR 
NO PROBL 
1BACKET ADDRESS SET UP 


sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 


sLOOP IF SELECTED 

sPICK UP XSTO 

sSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

BR, IF EQUAL (OK) 

on COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
- WORD 
WORD 


sNUMBER OF RECORDS TO SPACE OVER 


{SET UP RECORD SIZE 
PE SUe COMMAND. 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 


:8R, IF OK 
sor exe UP XTSO 

31S UNIT WRITE-LOCKED? 
3NO,PROCEED WITH NORMAL ERROR 
}TAPE IS WRITE LOCKED 
TRAP 
. WORD 


URITE FORWARD. CVC=1, ACK COMPAND 
'SET UP R4 PACKET ADORE 


cs 
111 


SEQ 0105 
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TEST 1: WRITE TAPE MARK RETRY 


024426 
4211 024430 
4212 024432 
4216 024436 


027574 
012144 


002214 


003120 
141011 
026370 
000000 
016360 
000002 
100204 


002214 


026372 
026370 


41$: 


1753: 


180$: 


g 


383583 83 2 


£5 


33355888 ; 


iS 


Bas 2 
g 


i 


FATFLG 
ERRNO, T29WRT ,PKTSSR 


01, T29R8 

0140410, T29PK3 
#T29PK3,R4 

R4, » TSOBCRS) 
TSSR(RS),R1 

Ri aoe 

175$ 

FATFLG 

ERRNO, T29WDE , PKTSSR 


919103 » T29PK3 
StosPKs Ra 
R4, TSDBERS) 
PC; WAITF 
TSSR(RS),R 
pesnisc bite, R2 

Ri Re 
180$ 
FATFLG 
ERRNO, T29WDE , PKTSSR 


T298FR-14, RI 
eatto, R2 
1,R2 


It 
ERRNO, T29RIB , EXPREC 


sOROP IT 


ERROR COUNT 
sTSSR INCORRECT AFTER wre 


sLOOP IF SELECTED 


sNUMBER OF RECORDS TO SPACE 
APCKET 


iSET UP COMMAND IN 


sSET UP_R4 WITH PACKET ADDRESS 
COMMAND 


;WAIT FOR SSR TO SET 


3 uP ED 
3;ARE THEY EQUAL 
3;BR, IF 


ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 


sLOOP IF SELECTED 
SS OF BUFF 


s ADORE ER 
iWRITE TAPE MARK RETRY, 
sSET UP _R4 WITH PACKET 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONT 


sLOOP IF SELECTED 


sGET XST3 grens WORD 


1SET UP 
1oET THE RIB BT 
‘OR IF eQune ¢GO0D 6900 
3 6 


sERROR C 
sNEF SHOULD BE SET 


.WORD T29WLK 
“WORD SFIMSG 
TRAP  C$DCLN 
CFERHRD 
"WORD T2OWRT 
“WORD PKTSSR 
TRAP  CS$CLP1 
OVER 
RAP C$ 
. WORD 113 
“WORD PKTSSR 
TRAP = C$CLP1 


ACK,CVC=1 COMD. 
T ADDRESS 


SEQ 0106 


3SET 
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SEQ 0107 
TEST 1: WRITE TAPE MARK RETRY 
4388 024646 190%: 
024646 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
024646 Li : 
498403 TRAP CsESUB 
4260 SO 3727 002214 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 
4261 024656 105402 BLO 999% 3BR, IF LESS THAN 25 
4262 024660 004737 017312 JSR PC ,CKDROP sTRY TO THE UNIT 
4263 024664 999%: 
4264 3° 
4265 : 
sees sTEST 1, SUBTEST 3 
426 8 
4268 sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 
4269 sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 
py A sCOMMAND AND CHECKING FOR TAPE STATUS ALERT T NATION AND TMK=1). 
3 
427 ” 
42735 024664 . BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
024664 71.3: 
024664 108402 TRAP CsBSuUB 
4274 024666 004737 032076 JSR PC, T29REST PACKET 
024672 004737 032170 JSR PC, T29RT sSET UP OTHER COMMAND PACKET 
4276 024676 004737 0322 JSR PC, T29RT sSET UP OTHER COMMAND PACKET 
024702 012737 02 026430 MOV #1 . -T29OLY sSET UP DELAY ROUTINE 
4278 024710 004737 016104 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
024714 103426 BCS 203 :8R IF INIT WAS OK 
024716 DELAY 250 sDELAY ABOUT .25 SECONDS 
024716 012727 000250 MOV €250,(PC)- 
024722 -WORD O 
0247 013727 002116 MOV LSOLY,(PC)- 
024 -WORD O 
024732 005367 177772 DEC -6(PC) 
024736 001375 BNE .-4 
024740 005367 177756 DEC -22(PC) 
024744 001367 BNE --20 
42861 024746 337 026430 DEC T290LY ;BUMP DELAY ROUTINE DOWN 
4262 024752 001356 BNE 22e 36R, IF MORE DELAY TIME LEFT 
4283 024 37 002214 INC ATFLG COUNT 
4287 024760 010001 MOV R1 3 CONTENT g OF TSSR REGISTER 
4288 024762 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
024762 104455 TRAP CSEROF 
024764 000164 . 26 
024766 003650 ‘ IERR 
024770 012144 -WORD SFIMSG 
4289 024772 013737 002174 026270 20%: MOV UNITN, T290SW sSET UP DRIVE NUMBER 
012704 026250 MOV ST29PACKET ,R4 s SUBROUTINE S PACKET 
1 004737 010742 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
4292 025010 103407 BCcS 23% 38R, IF COMMAND ISSUED OK 
$97 oos016 910001 - HOY OROLRAS SA ATENT Orit 
3 
4398 O58050 ERRHRD »WRTMSG , SF IMSG He CONAnACT nstiec FAILED 
025020 104456 TRAP CSERHRD 
025022 000165 -WORD 117 
025024 -WORD WRTMSG 
025026 012144 -WORD SFIMSG 
4299 025030 23%: CKLOOP sLOOP IF SELECTED 
025030 104406 TRAP CsCLPl 


EQS 
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011126 PC REWIND :CALL TAPE REWIND COMMAND 
30% ;8R, IF NO PROBLEM 
000002 MOV TSSRCRS).R2 :GET TSSR 
MOV RO ; SAVE PACKET ADORESS 
002214 FATFLG OUNT 


ERRNO , T29RWN,PKTSSR sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
T29BFR-6,R1 sPICK UP iste 
Re CET ue 
#8iT1,R2 iSET BOT “ert In NS exPECTED 
R1,R2 ;DOES EXP = REC'D 
40 i8R, IF EQUAL (OK) 
FATFLG 


ERROR COUNT 
ERRNO, T29B0T,EXPREC _, TAPE NOT AT BOT AFTER REWIND 


. 2980T 
EXPREC 
sLOOP IF SELECTED 

Cs$CLP1 


#140011, T29PK3 ‘WRITE TAPE MARK , ACK Cvc=1 =i) COMMAND 
OT29PK3.R4 T WP Re M BACKET ADORE 


SWAIT FOR SSR _TO SET 
sGET TSSR CONTENTS 
iSET UP EXPECTED 
sARE THEY EQUAL 
sBR, 


COUNT 
STSSR INEGRRECT AETER WRITE TAPE tan 


CKL 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 


i 


8 


sLOOP IF SELECTED 
TRAP —s- C$CLP1 
ot sot T29PK3 TE WRITE. TAPE RA RETRY MAEK CVE 1 COMMAND 
° 3 s 
5eK3 R4 iat tp PACKET ADORESS 
SGU COMMAND” 
54, FOR SSR TO SET 
CET uw EXPEC 
ins ye EXPECTED (SSR ONLY) 
: GOOD 
BR, IF TERMINATION WAS GOOD 
ERROR 
ERRNO, T29WDC , PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE N. 
-WORD 323 
“WORD T2OWOC 
"WORD PKTSSR 


B3335SS8s 2 


+ 


sLOOP IF SELECTED 
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TEST 1: WRITE 


TRAP CsCLP1 


sREAD REVERSE,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
SET UP MA WITH PACKET ADORESS 


vee Cree 
sWAIT FOR SSR TO SET 


sLOOP IF SELECTED 


T29BFR-6,R1 sPICK UP XSTO 
R1,R2 
81T15,R2 
R1,R2 


332 © 9x89888888 
; oF 


SET UP EXPECT 


31S TMK au 
2 ;BR, IF TMK WAS SET (GOOD) 
FATFLG 
ERRNO 


;ERROR ¢ 
» T2SRRN , EXPREC ;TMK NOT SET AFTER READ REV 
TRAP CSERHRD 


“WORD T39RRN 


-WORD EXPREC 
sLOOP IF SELECTED 
CsC.P1 


TRAP 
3<<<<<<¢<e<e<e<e< END SUBTEST >>>>>>>>>>> 
1004 


1 
* TRAP CSESUB 

FATFLG, 015. IS ERROR COUNT AT 
9994 iOR, IF LESS THAN 


PC. CKDROP TRY TO DROP THE UNIT 
9994: 
| id 
rTEST 1, SUBTEST 4 
iVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
;RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
SMRITE TAPE HARK RETRY COMMANDS IN SUCCESSION, THEN’ ISSUING TUO SPACE 


RECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
COMMAND SHOULD TERMINATE WITH REVERSE INTO (RIB) STATUS SET. 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
71.4: 
TRAP Cs#6SU8 


i UP DELAY ROUTINE 
s00 INITIALIZE ON CONTROLLER 
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4398 103426 BCS 20% ;BR IF INIT WAS OK 
4399 o3eaas DELAY 250 ;DELAY ABOUT .25 SECONDS 
025442 012727 000250 HOV $250, (PC)- 
025450 013727 002116 MOV LSOLY,(PC)- 
0254 .WORD 0 
Oosaés Ooists BNE fe 
025464 003367 177756 DEC =29¢PC) 
025470 001367 BNE .-20 
4400 025472 005337 026430 DEC T290LY ;BUMP DELAY ROUTINE DOWN 
4401 025476 001356 BNE 10$ :8R, IF MORE ORE DELAY TIME LEFT 
025 005237 002214 INC FATFLG COUNT 
025 010001 MOV RO,R1 sCONTENTE OFT OF TSSR REGISTER 
4407 025506 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
104455 R CSEROF 
025510 000174 .WORD 124 
025512 0036: [WORD SFIERR 
025514 012144 [WORD SFIMSG 
4408 025516 013737 002174 026270 20% MOV UNITN T290SW sSET UP DRIVE NUMBER 
012704 MOV O@T29PACKET, ;SUBROUTINE NEEDS PACKET ADDRESS 
4410 058830 004737 010742 JSR bee WRTCHR sISSUE WRITE CHARACTERISTICS 
025534 103407 Bcs 233 :6R, IF COMMAND ISSUED OK 
025536 005237 002214 INC FATFLG 
4416 025542 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4417 025544 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
025544 104456 CSERHRD 
025546 000175 "NORD 125 
025550 “WORD WRTMSG 
025552 012144 :WORD SFIMSG 
4418 025554 234: CKLOOP ;LOOP IF SELECTED 
025554 1 TRAP = C$CLP1 
4419 025556 004737 011126 JSR PC REWIND :CALL TAPE REWIND COMMAND 
4420 025562 103411 BCS 303 36R, IF NO PROBLEM 
4421 025564 016501 000002 MOV TSSRCRS),R1 :GET TSSR 
4422 025570 010004 MOV RO,R4 {SAVE PACKET ADDRESS 
4423 025572 005237 002214 INC FATFLG sERROR COUNT 
4427 025576 ERRNO, T29RWN, PKTSSR REWIND NOT ACCEPTED 
025576 1044 TRAP §C$ERHRD 
025600 000176 .WORD 126 
025502 030235 "WORD T2ORWN 
025604 012156 "WORD PKTSSR 
4428 025606 30$: CKLOOP ;LOOP IF SELECTED 
025606 1 TRAP = C$CLP1 
025610 013701 026300 MOV T29BFR-6,R1 PICK UP _XSTO 
4430 025614 010102 MOV R1,R2 T UP EXPECT 
4431 025616 052702 000002 BIS o61T1,R2 SET BOT BIT _IN EXPECTED 
025622 020102 CMP 1,R2 sDOES = REC'D 
4433 025624 001406 BEQ ‘ ;BR, IF EQUAL COK) 
34 025626 37 002214 INC FATFLG ZERROR 
4438 025632 ERRNO , T2980T , EXPREC ;TAPE NOT AT BOT AFTER REWIND 
025632 104456 TRAP  C$ERHRD 
025634 000177 .WORD 127 
025636 027726 "WORD T29B0T 
025640 015604 [WORD EXPREC 
4439 025642 40$: CKLOOP ;LOOP IF SELECTED 
025642 104406 TRAP = CSCLP1 


H9 
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TEST 1: WRITE TAPE MARK RETRY 


012737 140011 026370 
026370 


016360 
000002 
000200 


3499593558 . 


r 


oop 


CKL 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 


i, 


$335 2 


SEQ 0111 
#140011, T29PK3 
OT29PK3.R4 
R4, TSDBCRS) 
PC; WAIT 
TSSRCRS),.RI 
@SSR,R2 
Rl Ri Re 


70 
FATFLG 
ERRNO, T29WDC , PKTSSR 


WRITE TAPE MARK ,ACK,.CVC=1_ COMMAND 
SET UP R4 WITH PACKET 


TWoRD 

~WORD 

. WORD 
sLOOP IF SELECTED 


TRAP 
;NUMBER OF RECORDS TO WRITE TM 
1,7 SET UP PACKET 
$141011, T29PK3 ;WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
OT29PK3_R4 ;SET UP R4 WITH PACKET ADDRESS 
R4, TSDBCRS) s ISSUE COMMAND 

WAIT FOR SSR TO SET 


PC‘ WAITF 
TSSR(RS),R1 ;PICK UP TSSR 

@5SR,R2 ;SET UP EXPECTED (SSR ONLY) 
R1,R2 WAS STATUS GOOD 

165% ;BR, IF TERMINATION WAS GOOD 


FATFLG 
ERRNO, T29WDC , PKTSSR s+ TSSR not CORRECT AFTER tl Le M. 


#10. ,R3 
6 


sLOOP IF SELECTED 
TRAP 


sBUMP pose DOWN 
s8R, IF LESS THAN 10 TAPE MARKS 


ERRNO , T29WDE , PKTSSR 


2209830 T29PK3 
05,7 


OT39PK3,R4 
ha TspatRs) 
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TEST 1: WRITE 


TAPE MARK RETRY 
7 016360 

000002 
100204 


002214 


002214 
017312 


016566 
023512 


000017 


260%: CKLOOP 


PC, WATE 
TSSRCRS 
ossniscéit2, R2 
R1,R2 


38 
ERRNO , T29RDG ,PKTSSR 


T29BFR-14,R1 
£T0,R2 
R1,R2 

270% 
FATFLG 
ERRNO, T29RIB, EXPREC 


FATFLG,#@15. 
999% 
PC, CKDROP 


PC, TSTLOOP 
163% 
29. 


T 
TST 


}LOCAL STORAGE FOR THIS TEST 


MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 

270$:  CKLOOP 

330%:  CKLOOP 
ENDSUB 
CMP 
BLO 
JSR 

999%: 

3 

: 

3 
uSR 
Bcc 
wy) 

163%: EXIT 

+29PACKET: 
. WORD 
“WORD 

T29DATA: 


sees 
29DATA 


sWAIT FOR SSR TO SET 
ENT 


uP ED 
;ARE THEY EQUAL 
3sBR, IF 


COUNT 
sTSSR INCORRECT AFTER at 


sLOOP IF SELECTED 
sPICK UP XSTS 
SE 


;BR, IF RIB WAS SET (GOOD) 
sERROR C 
sTMK NOT SET AFTER READ REV 
TRAP 


sLOOP IF SELECTED 
sLOOP IF SELECTED 


SE@ 0112 


EseRHRD 
131 
T29RDG 
PKTSSR 
CsCLP1 


CSERHRD 
132 
29RIB 
EXPREC 
CsCLP1 


CsCLPi 


TRAP 
p<eeececeece END SUBTEST >>>>>>>>>>> 


sCOMMAND PACKET FOR TEST 
;WRITE gg Ma eee COMMAND 
sADDRESS OF CHARACTERISTICS BL 


sSTARTING VALUE 


sLENGTH OF MESSAGE BUFFER 


OF BLOCK SI 
sCHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 


CsESUB 


CSEXxIT 
L10036- 


WITH CVC=1, ACK 
ocK 


JI 
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TEST 1: WRITE TAPE MARK RETRY 





027147 
027231 


000000 


003120 


010 


T290SW: 
T29BFR: 


: 


-BLKW 


.¢] 
2s. 


SEQ 0115 


sSELECT DRIVE O 
sMESSAGE BUFFER 


iWRITE SUBSYSTEM MEMORY COMMAND PACKET 


3 
T29PKe: 


355 3 3835 


: .BYTE 
“BYTE 


a5 


-*<.*10>€177770 


100006 
T298F 2 


;WRITE SUB SYS MEM COMMAND, AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sSEL 2 AREA 
;DATA AREA 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


Bi 5 5355553 


m 
% 


R Beas 


H 
N 


HHH 
NANNNN 


af 


MESSAGES FOR TEST 


OUS OPP=] 
sWRITE TAPE MARK RETRY NEXT OPP=0 
sWRITE y~ # MARK RETRY NEXT OPP=) 
sEND OF DATA 


s TAPE RECORD COUNTER STORAGE AREA 


RECORD STORAGE SIZE AREA 
DELAY COUNTER STORAGE AREA 


why is Any 


e Thee RETRY 
Sane A Sy BOT. Feiled To Set NEF (XSTO)’ 


t After WRITE TAPE MARK Previous (OPP=])’ 


eeRe Incorrect After 


. URITE 


TAPE MARK RE 


TRY EAD ATA (Spece Reverse, Reed Forward) Command Failed 


‘WRITE TAPE MARK RETRY Previous (Read Forward, Spece Reverse) Command Failed 


SUP Set 


Command) Failed raee fet Cor t’ 
ER READ REVERSE INTO na 


K9 
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SEQ@ 0114 

TEST 1: WRITE TAPE MARK RETRY 

Not Correct After Illegal Mode Bits Set’ 

Hilegel Mode Bite, me To Set ILC Bit In XSTO’ 

‘init eB MARK RE 'Y COMMAND Not ted’ 

t Correct i Pece SPACE REVERSE DATA Commend’ 
‘ pease T ABE IS WRITE-LOCKED AND WILL CAUSE ERRORSeeess’ 
'TSSR Not Correct After WRITE Command 
"Tape Not At i After REWIND 


ommend 
‘Date Written To © Date Read F 
TE TAPE MARK RETRY DATA OVE A OVER "Son tave no TAPE Se siktus MLERT’ 
SSR Noe Corres ACE REVERSE Into BOT’ 


Command Not 
Correct Dete Pattern Not In Ram‘ 
*TSSR Init. Feiled After WRITE TAPE " RETRY COMMAND‘ 


SSR 
Correct After WRITE TAPE MARK RETRY DATA Command, SWB Bit Set’ 
TSSR Not Correct After WRITE TAPE MARK we Tied DATA Command’ 
ove Set, Didn''t Reset VCK In 
TSBA Not Correct After WRITE TAPE 
‘WRITE SUBSYSTEM MEMORY Command 


Record Read 
Give arg Stetus Alert’ 
From T t Correct, After SWB-1' 
nto ° Tees Mark‘ 
rst Record, Failed To get RIB (XST3)’ 
xS105 Feiled / Set hone READ SE Into Tape Merk’ 
‘Write Tape Merk Retry’ 


l Lenanlenlenianlantaslenlenlestanlenleslaslesleslenleslaienleslesieslesienlen! 
NANNNNNNNNNNNNNNNNNNNNNNNNNG 


ASC 
ASC 
ASC 
is 
ASC 
ASC 
ASC 
- ASC 
- ASC 
ASC 
- ASC 
ASC 
- ASC 
ASC. 
ASC. 
. ASC. 
- ASC 
- ASC 
- ASC 
- ASC 
- ASC 
- ASC 
- ASC. 
ASC 
- ASC 
EVEN 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
iMRITE SUBSYSTEM MEMORY COMMAND 


; - 
T29REST: 


¢ 
l 


VE THE REGISTERS 
@T29PACKET ,R P 
MEM. WITH ACK, CVC=1 
SS OF CHARAISTICS DATA BLOCK 
(R1)- ADORE SS 
0. ,(R1)- {SIZE OF DATA BLOCK IN BYTES 
eT 296FR,(R1)- sADORESS OF MESSAGE BUFFER 


+t el sLENGTH OF MESSAGE BUFFER 
sSELECT ORIVE ZERO ( 
sNUMBER OF 


Sits T29BFR(R2) 5" fo, 0c CLEARED 


oa 
PC 


eases eee ese ess 


D 
= 
w 


; 
o 


sSAVE THE REGISTERS 
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TEST 1: WRITE 
4661 032174 
032200 


sSTART OF THE PACKET 

sWRITE svesveres MEM. WITH ACK,CVC-1, 
sADDRESS OF DATA BLOCK 

SEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


SAVE THE REGISTERS 
SSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 


sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sRETURN 


MOV 
RTS 
ENDTST 
L10036: 
TRAP CsETST 
-SBTTL TEST 2: SKIP TAPE MARKS 
. 


THIS TEST veRIF Ie »PROPER OPERATION OF THE SKIP TAPE MARK 
FORWARD AND SK MARKS ; 1 
Of ML COMBINATI ENABLE SKIP TAPE MARKS 
E TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
ERISTICS COMMAND. THE TEST CONSISTS OF THE 
(FOR EACH SUBTEST, THE Tape Is 1s FIRST WRITTEN 
APPROPRIA E SERIES OF DATA RECORDS TAPE MARKS 
sAND/OR DOUBLE TAPE MARKS. 


THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 
3 
7 
3 
ge 
T2:: 
GEPRT1 sPRIMARY MESSAGE 
SisTSAID RO sASCII MESSAGE TO IDENTIFY TEST 
Tetsetur 00 INITIAL TEST SETUP 
* LBOBENY sPERFORM S ITERATIONS 
| id 


TEST 2, SUBTEST 1 
: 


IVERIPIES Th THAT A 


Late gr A 
sCONTAINS A FILE 


SEQ 0115 
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SEQ 0116 
TEST 2: SKIP TAPE MARKS 
4719 sTHE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
4720 sVERIFIED BY READING THE DATA. THE TAPE IS AGAIN 
4721 sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 
$728 sCOMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 
472 s TERMINATION, TMK=] STATUS, TAPE POSITION VIA READ 
4724 : ) IS CHE PRIOR TO 
4725 ; A WRITE CHARACTERISTI COMPIAND 1s fesueD TO 
47 is ESS AND ENB CONTROL BITS. ALL 
4727 TIONS OF ESS AND ENB ARE USED (00,01,10, 
4728 ie TOPERATION SHOULD BE THE SAME IN EACH CASE 
47 THIS SUBTEST. 
4731 ; 
4732 am 
4733 
4734 032310 T3OLOOP : 
4735 astro BGNSUB g>>>>>>>>>>>> a SUBTEST >>>>>>>>>>>> 
032310 TRAP =s-s«s $B SUB 
4736 032312 004737 041202 JSR PC, TSOREST :SET COMMAND PACKET 
4737 032316 005037 CLR T3OFCN CLEAR FILE E COUNTER 
4738 032322 737 041274 JSR PC, TSORT2 3SET UP OTHER COMMAND PACKET 
737 041336 JSR PC. T3ORTS SET UP OTHER COMMAND PACKET 
4740 032332 012737 176750 036606 MOV #65000. , TSODLY SET UP DELAY COUNTER 
4741 032340 004737 016104 108: JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
4742 032344 103426 BCS 203 :8R IF INIT WAS OK 
4743 032346 DELAY 250 sDELAY ROUTINE CALL 
032346 012727 000250 MOV 6250, (PC)- 
032352 000000 .WORD 0 
013727 002116 MOV LSDLY,(PC)- 
032360 000000 .WORD 0 
032362 005367 177772 . BEC ~6¢PC) 
032366 001375 BNE 
032370 005367 177756 DEC =20(PC) 
032374 001367 BNE .-20 
4744 032376 37 036606 DEC T300LY ;BUMP COUNTER 
4745 032402 001356 BNE 10% :8R, IF MORE COUNTING TO DO 
4746 032404 005237 002214 INC FATFLG ERROR COUNT 
4750 032410 010001 MOV RO,R1 CONTENTS OF TSSR REGISTER 
4751 032412 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032412 104455 TRAP C4EROF 
032414 000311 .WORD 201 
032416 0036 ‘WORD SFIERR 
032420 012144 [WORD SFIMSG 
4752 032422 20%: 
4753 032422 013737 002174 036450 MOV UNITN, T3ODSW sSET UP UNIT NUMBER 
4734 032430 012704 036430 MOV OTSOPACKET ,.R4 sSUBROUTINE NEEDS PACKET ADDRESS 
. 756 SPEER S TEACHES REST REKEH SSH ETS SHES ER TEKS SHEERS KEE 
e 
4 sISSUE WRITE CHARACTERISTICS COMMAND 
¢ 
aren §FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESSESESSESessessssese 
4762 032434 004737 010742 JSR pC WRTCHR sISSUE WRITE CHARACTERISTICS 
4763 032440 103407 BCs 234 :8R, IF COMMAND ISSUED OK 


4764 032442 005237 002214 INC FATFLG sERROR COUNT 


N9 
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010001 


104456 
000312 
005054 


012144 
104406 


000001 036604 
00000 


g03120 gsess2 


MOV RO,R1 ‘ sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, ST IMSS sWRITE CHAFACTERISTISC FALE 


23%: CKLOOP sLOOP IF SELECTED 


FSSSSCSS SSS SSeS SSS Se SSE TEE SSESESESETSESSETESESESSEESESEEES 
+. , 

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

; SSSSSSSS SSS SSS SSS SS SSS SS SSS SESE SS SSE SESE SESESESEE ESSE ESSE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
Bcs 303 OR, I IF NO PROBLEM 


RO,R4 GET PACKET ADDRESS 
TSSRCRS) Ra GET STATUS REGISTER 


MOV 
INC sERROR COUNT 
ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 


30$: CKLOOP sLOOP IF SELECTED 


8 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSSESSSSESSSESE SESS 
iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
; SSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSESSESSSSSSSSSSESSSSSsSSsessessesse 

T3OBFR-+6,R1 PICK UP XSTO 

R1,R2 Hea 

e6iT1,R2 
R1,R2 


40 
FATFLG 
ERRNO 


40¢:  CKLOOP sLOOP IF SELECTED at 
MOVs @1. , TSOFCN SET “PILE* COUNTER AT 1 DECIMAL 
€s3; HOV 1,83 T 3 TS'S WATTE 
* fv 92008. P3082 ise at 2000 BYTES 
PPSSHESHSTESHKECHS CESHS ES SEHR STS SS SPS SESS SSE SSE STSESSSSESPESH 


IWRITE DATA, ACK,CVC*1 COMMAND 


SEQ 0117 
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012737 
0 


140005 
036550 
036604 


141011 
036550 
000000 
016360 
000002 
000200 


002214 


036604 
036604 


036550 


036550 


000006 


MOV 140005 , T30PK3 

MOV OTSOPK3.R4 

MOV T3OFCN,R2 

SWAB sR 

MOV R3,R1 

ADD R2,R1 

MOV R1. aFREE 

MOV R4. TSDBCRS) 

JSR WAITF 

MOV TSSRCRS),R1 

MOV @SSR 

CMP R1,R2 

BEQ 703 

INC FATFLG 

ERRHRD ERRNO, TSOWDD,PKTSSR 
70$: cous: 

INC R3 

CMP R3,021 

653 


SEQ 0116 


sWRITE a Hg a" CVC=1 COMMAND 
1SET UP R4 WITH PACKET ADDRESS 
iGET rae COUNTER 
sMOVE TO UPPER BYTE 

iGET RECORD COUNTER 

sFILE COUNTER IN UPPER, RECORD @ LOW 
yt TO OUT PUT BUFFER 


sl C 
{WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
3 uP TED 
SARE THEY EQUAL 
3;6R, IF OK 
ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
\WORD 205 
“WORD  T3OWDD 
"WORD PKTSSR 
;}LOOP IF SELECTED 
C$CLP1 


TRAP 
tae ws RECORD COUNTER DOWN 
‘BR, IF NOT AT 20 RECORDS WRITTEN 


3 FSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SS SESS SSESESSE SE SSS ESSE SE SESES 


{WRITE TAPE MARK,ACK,CVC=1 COMMAND 


é 
§ FFSSSSSSSSSSSESSSSSSESSSS SSS SSS SS SESS SSE SSS SSS ESSERE SSS SSE SSESSE 


#141011. T3OPK3 
OTSOPK3 RA 

R4  TSDBCRS) 

TSSRCRS), R1 

Ri Ri one 

160$ 

FATFLG 

ERRNO, TSOWDC,PKTSSR 


T30OF CN 
T30FCN, 06 
64% 


;WRITE TAPE MARK pack CvC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRE 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sPICK UP TSSR 

sSET UP EXPECTED (SSR ONLY) 

;WAS STAT US GOOD 

:8R, IF TERMINATION WAS GOOD 


ERROR COUNT 
:TSSe NOT CORRECT AFTER WRT TAPE M. 
TRAP C$ERHRD 


-WORD TSOWDC 

-WORD PKTSSR 
TRAP C$CLP1 
DOWN 


sLOOP IF SELECTED 


sCOUNT THE ts ¥ COUNTER 
SWRITE S FILE TO TAPE 
s68R, IF NOT AT S FILES WRITTEN 


§ FSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SSS SESSSSSSSSSS 


;WRITE TAPE MARK,ACK,CVC=1 COMMAND 


3 
FFSSSSSSSSSSSESSSSESSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESESSES ESSE 
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SEQ 0119 
TEST 2: SKIP TAPE MARKS 


9 
4890 032770 012737 141011 036550 MOV #141011, . atean sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
4871 032776 012704 036550 MOV OTSOPK3 ,R sSET R4 WITH PACKET ADDRESS 
4872 033002 010465 000000 MOV ha TSbBtRS) :1S COMMAND 
4873 033006 004737 016360 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4874 033012 016501 000002 MOV TSSRCRS),R1 rear UP _TSSR 
4875 033016 012702 000200 MOV @SSR ,R2 T UP EXPECTED (SSR ONLY) 
4876 033022 020102 CMP R1,R2 iWAS STATUS GOOD 
4877 033024 001406 BEQ 165% 36R, IF TERMINATION WAS GOOD 
4878 033026 005237 002214 INC FATFLG ERROR count 
4882 033032 ERRHRD ERRNO, TSOWDC ,PKTSSR sTSSR not CORRECT AFTER ad TAPE M. 
033032 104456 TRAP Cee 
033034 000317 - WORD 
033036 040312 WORD Souoc 
033040 012156 . WORD PKTSSR 
4883 033042 165$: CKLOOP sLOOP IF SELECTED 
ases 033042 104406 TRAP CSCLP1 
Prog FESSSSSSSSSSS SSS SSS SSS SS SSS SSS SS SSS SSS SEE SESSS SSS SE SSS SSSS 
3 
4887 sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
4888 3 
+34 FESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSE SSS SS SSSSESSSESESESESEESS 
4891 033044 004737 011126 JSR REWIND sCALL TAPE REWIND COMMAND 
4892 033050 103411 BCS 3908 :8R, IF NO PROBLEM 
4893 033052 010004 MOV R4 :GET P PACKET ADDRESS 
4894 033054 016501 000002 MOV TSSR(RS),R1 iGET STATUS REGISTER 
4895 033060 005237 002214 INC FATFLG sERROR COUNT 
4899 033064 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
03 104456 TRAP CSERHRD 
03 «WORD 208 
033070 040170 .- WORD T3ORUN 
033072 012156 -WORD PKTSSR 
4900 033074 170%: CKLOOP sLOOP IF SELECTED 
4901 033074 104406 TRAP CS$CLP1 
pie. | SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSESSS 
3 
yes sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
905 3 
pt | FESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESesses 
4908 033076 013701 036460 MOV T3OBFR+-6,R1 eer YP ise STO ep 
4909 033102 010102 MOV R1,R2 
4910 033104 052702 000002 BIS 9eiTi, R2 1SET BOT Corre IN EXPECTED 
4911 033110 020102 CMP rth w S EXP = REC'D 
pts | 033112 001406 BEQ 1864 :8R, IF EQUAL (OK) 
4913 033114 37 002214 INC ATFLG — Overt 
4917 033120 ERRHRD ERRNO, TSOB0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
33 104456 TRAP CSERHRD 
033122 000321 . WORD 54 
033124 037771 - WORD 30B0T 
Oseies 015604 .- WORD EXPREC 
4916 0331 180%: CKLOOP sLOOP IF SELECTED 


1 104406 TRAP CsCLP1 
4919 033132 012703 036566 MOV OTSOIMV ,.RS sSET UP POINTER TO COMMAND TABLE 
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TEST 2: SKIP TAPE MARKS 
4920 033136 013737 002174 036450 MOV UNITN, T3ODSW SET UP 


UNIT 
011337 036446 162%: MOV (R3), T30ETM iGET NEXT COMMAND 
012704 036430 MOV OTSOPACKET ,R4 s SUBROUTINE NEEDS PACKET ADDRESS 


[ESSEC ESSE SSS SSS SESS SSS TS SS SES SSES ESSE SSSEESESESSEEESESS 
: 

s ISSUE WRITE CHARACTERISTICS COMMAND 

: SSSCHSSSS SSS SSS SSS S SSS SESS SET ESTEE SESS S ESS EESEEEES EEE EE EES 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCs 168% :8R, IF COMMAND ISSUED OK 


FATFLG sERROR COUNT 
MOV Ri sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC i 


168%: CKLOOP sLOOP IF SELECTED 


FS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSESESSESSSSSSESSSSESSSes 

iSKIP TAPE MARK,ACK,CVC#=1 COMMAND 

: SECKEKEKEESH CK SE KES EKESHEE ERE SSE KSEE SHEERS EKEREKARASSEK ERS SE 

010, T30PK3 1SKIP TAPE HARK ACK CVC=1 COMMAND 
NUMBER tO SKIP 


SORE 

SET UP R4 WITH PACKET ADORESS 
s1SSUE COMMAND 

3SET UP DELAY COUNTER 

{WAIT FOR SSR TO SET 

:PICK UP TSSR 

sIS SSR SET YET 

i0R, IF SSR IS SET 

sCALL DELAY ROUTINE 


141010 036550 
000001 036552 
036550 
000000 


176750 036606 
016360 
000002 


SPE EEEE, 


BR 


$558.0°5 9° 

LSOLY,(PC)- 

Peco) 

*32cPe) 
--20 


pose 


G 
ERRNO , TSOSKM,,PKTSSR 
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4966 033334 
033334 


104406 


013701 


036460 
100000 


002214 


177777 
017532 
003120 


036552 


036550 
036556 


192%: 


CKLOOP 


sLOOP IF SELECTED 


pSSSSSSS SSS SSESSESSSE SEES SEE SEE SEES SEE SESESEEEE SEE ESEEEETS 
IGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


3 
FSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSS SSSSSSSSSSSSSSSSSSSSSsses 


TRAP 


CsCLP1 


MOV TSOBER-6, Ri PICK Y yp xsT XSTO_ 
MOV 
BIS seitis. R2 1SET TMK Orr In. EXPECTED 
CMP 1,R2 sD0ES EXP = REC'D 
BEQ a3 $ i8R, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSOTMK, EXPREC :TMK NOT SET AFTER WRT TAPE MARK 
TRAP C#ERHRD 
.WORD 212 
"WORD TSOTMK 
"WORD EXPREC 
195%:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV €177777,RO + VALUE TO WRITTEN TO MEMORY 
JSR PC ,FILLMEM ;FILL MEM WITH ALL ONES 
MOV FREE,T STARTING READ BUFFER ADDRESS 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSESSSSSSSSSSEsSsesess 
7 
;READ FORWARD,ACK,CVC=1 COMMAND 
3 
pSV ESKSHKSSE SKS SSESRHS SESE SSS HKHES HSER CRS SHREK SRESHe SH eSeKHH 
MOV 6 . T3OPK3 sREAD FORWARD, ACK CVC=1 COMMAND 
MOV st S0mK3 na sSET UP R4 wrth PACKET ADORESS 
MOV 3SET UP RECORD SIZE IN PACKET 
MOV #2000... 13082 sISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 iGET T CONTENTS 
MOV @5SR ,.R2 3SET UP CTED 
CMP R1,R2 ; ARE EQUAL 
BEQ 200% :6R, 
INC FATFLG ERROR COUNT 
ERRHRD ERRNO, TSOROF ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
TRAP segues 
WORD ed 
"WORD PKTSSR 
200%:  CKLOOP ;LOOP IF SELECTED 
MOV @FREE,R1 FIRST AD BUFFER ware 
: L 
MOV 9177777 ,R2 CTEDS Pwr NO DATA TRANS. 
CMP R1,R2 eID kor Data Br oarh Trane Cc RANSFERRED 
BNE $ :BR, IF NO DATA TRANS (GOOD) 
INC oo FATFLG COUNT 
ERRNO, TSODTR, EXPREC sDATA TRANSFERRED ON READ. TAPE MARK 
word Sia 


SE@ 0121 


041020 
018608 
104406 
012702 
017701 
arrace 
008287 
104456 

3 


000 
037172 
015604 


104406 


001001 
147364 


002214 


011126 


000002 
002214 


002214 
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T300TR 
EXPREC 
220%:  CKLOOP ;LOOP IF SELECTED 
MOV #1001 ,.R2 SET UP RECORD NUMBER EXPECTED (FALE 2) 
MOV REE; R1 ‘GET INFO FROM BUFFER 
CMP R2,R1 ;ARE THEY EQUAL 
BE 226s :BR, IF EQUAL (OK) 
I ATFLG OUNT 
ERRNO, T3OPTB , EXPREC ;RECORD POSITION WAS NOT CORRECT 
TRAP CSERHRD 
-WORD 215 
“wOoRD T30PTB 
"WORD EXPREC 
2284:  CKLOOP ;LOOP IF SELECTED 
TRAP —s-« CSCLP1 
PERKS STH ERE KSEE AKERS EHS SEES HE SETAE HEH SS ESESSEESESCH EES 
TISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
; SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSESSESSSsesssssesssss 
JSR PC , REWIND :CALL TAPE REWIND COMMAND 
BCS 230% 36R, IF NO PROBLEM 
MOV RO,R4 ;SAVE PACKET ADDRESS 
MOV TSSR(RS),R1 :GET TSSR STATUS 
INC FATFLG ;ERROR COUNT 
ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP guia 
“WORD Sewn 
"WORD PKTSSR 
230%:  CKLOOP ;LOOP IF SELECTED 
TRAP —s-« C$CLP1 
§SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSsessss 
}GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
y ERESEE SCHR SSHTSKE SHE SE SEE PEERS SHE KSEAHKAEK HESS HRSESS STARE ESTE 
MOV T3OBFR-6,R1 ;PICK UP XSTO 
MOV 1SET UP EXPECTED 
BIS iT1,R2 3SET BOT BIT IN EXPECTED 
equa tORS IF EQUAL (OK) 
one pads = ERROR 
ERRHRD ERRNO, TSOBOT ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERMRD 
-MORD 317 
WORD 1 
WORD 
240%:  CKLOOP ;LOOP IF SELECTED ene 
TST (R3)- ;POINT TO NEXT POSITION 
MOV (R3),R1 ;GET NEXT COMMAND ETC. 


SEQ 0122 


G10 
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SEQ 0123 
TEST 2: SKIP TAPE MARKS 

5067 033650 020127 177777 CMP R1, 0177777 sEND OF TABLE MARKER 

5068 033654 001402 BEQ 330$ 36R, IF AT END OF TABL 

5069 033656 000137 033144 JP 182$ ;JUMP TO MORE COMMANDS TO DO 

5070 033662 330$:  CKLOOP ;LOOP IF SELECTED 
03 104406 TRAP =s-_-« C$CLP 1 

5071 033664 ENDSUB s<eeeeececece END SUBTEST >>>>>>>>>>> 
03 10044; 
03 1 TRAP ©CSESUB 

5072 03 023727 002214 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
033674 10 BLO 999% :8R, IF LESS THAN 25 

5074 033676 004737 017312 JSR PC, CKDROP sTRY TO DROP THE UNIT 

5075 033702 9994: 

5076 3° 

5077 ; 

2078 sTEST 2, SUBTEST 2 

g 

5080 sVERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 

5081 :MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 

5082 30F 2,3,8,64,256, AND 512 ARE TESTED. THE 

5083 sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 

5084 3 

so08ss 3 

5086 3 

5088 cy 

5089 033702 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
0337 T2.2: 
033702 1 TRAP C$BSUB 

5090 033704 004737 041202 JSR PC, TSOREST sSET COMMAND PACKET 

5091 033710 005037 CLR T3OFCN sCLEAR FILE COUNTER 

5092 033 004737 041274 JSR PC, TSORT2 : UP OTHER COMMAND PACKET 

5093 033720 004737 041336 JSR PC. T3ORTS sSET UP OTHER COMMAND PACKET 

5094 033 012737 176750 036606 MOV #65000. ,T ;SET UP DELAY COUNTER 

5095 033732 004737 016104 10$: JSR PC, SOFINIT s00 INITIALIZE ON CONTROLLER 

5096 033 103426 BCS 20% :BR IF INIT WAS OK 

5097 033740 DELAY sDELAY ROUTINE CALL 
033740 012727 000250 MOV #250, (PC)- 
033744 000000 .WORD © 
033746 013727 002116 MOV LSOLY,(PC)- 
033752 000000 .WORD 0 
033754 005367 177772 DEC -6(PC) 
033760 001375 BNE a 
033762 177756 DEC -22(PC) 
033766 001367 BNE .-20 

5098 033770 005337 036606 DEC T300LY ;BUMP COUNTER 
033774 001356 BNE 10$ :BR, IF MORE COUNTING TO DO 

5100 033776 005237 002214 INC FATFLG ZERROR COUNT 
034002 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

5105 034004 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
034004 104455 TRAP CS$EROF 
034006 000332 .WORD 218 
034010 003650 “WORD SFIERR 
034012 012144 :WORD SFIMSG 

5106 034014 20%: 

5107 034014 013737 002174 036450 MOV UNITN, T3ODSW :SET UP UNIT NUMBER 

5108 034022 012704 036430 MOV OTSOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


5109 


H1i0 
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SEQ 0124 
TEST 2: SKIP TAPE MARKS 

310 §FSSSSSSSSSSSSS SSS SESS SSSSSSS SES SSS S SSS SS SES SES SESESSESESESESSESS 

S112 }ISSUE WRITE CHARACTERISTICS COMMAND 

aii$ , euseuseennqnenensesesereneseonensepensennenneneenteeneees 

5116 034026 004737 010742 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

5117 034032 103407 BCS 233 :BR, IF COMMAND ISSUED OK 

5118 034034 005237 002214 INC FATFLG ; 

5122 034040 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5123 034042 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
034042 104456 TRAP § C$ERHRD 
034044 000333 .WORD 219 
034046 "WORD WRTMSG 
034050 012144 [WORD SFIMSG 

5124 034052 234: CKLOOP ;LOOP IF SELECTED 

aes 034052 104406 TRAP = C$CLP1 

sist FSSSSSSSSSSSSSESSSESSSSSSESSSSSSSSSSSSSSSSSSESSSESESSESSESSESSESSESss 

5128 }ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

size _quendeusennesenneonesennnsssesssenmasnanensennunesesatt 

5132 034054 004737 011126 JSR PC, REWIND sCALL TAPE REWIND COMMAND 

5133 034060 103411 BCS 303 :8R, IF NO PROBLEM 

5134 034062 010004 MOV RO,R4 :GET PACKET ADDRESS 

5135 034064 016501 000002 MOV TSSRCRS),R1 :GET STATUS REGISTER 

5136 034070 005237 002214 INC FATFLG sERROR COUNT 

5149 034074 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
034074 104456 R CSERHRD 
034076 000334 
034100 040170 WORD 
034102 012156 PKTSSR 

5141 034104 30$: CKLOOP ;LOOP IF SELECTED 

“ste 034104 104406 TRAP = C$CLP1 

ares FSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSESSSSSSESSSSESSSESSSESSSssesse 

3145 }GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

Stee - SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSSESSSSSSESSSSSssessessesse 

3135 034106 013701 036460 MOV T3OBFR+6,R1 sPICK UP XSTO 

5150 034112 010102 MOV Ri : EXPECTED 

5151 034114 052702 000002 BIS e6iT1,R2 ;SET BOT BIT IN EXPECTED 

3132 034120 020102 CHP R1,R2 sD00ES EXP = RECO 

5153 034122 001406 BEQ 403 :BR, IF EQUAL (OK) 

5154 034124 005237 002214 INC FATFLG yERROR COUNT 

5158 034130 ERRHRD ERRNO, T3OB0T,.EXPREC ;TAPE NOT AT BOT AFTER REWIND 
034130 104456 TRAP CSERHRD 
034132 000335 . WORD 2 1 
034134 037771 “WORD T 
034136 015604 [WORD EXPREC 

5159 034140 40$: CKLOOP ;LOOP IF SELECTED 


104406 RAP CsCLP1 
5160 034142 012737 000001 036604 MOV #1. ,T30FCN sSET “FILE” COUNTER AT 1 DECIMAL 
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Se 


‘4 
w 
eeee 
> 


012703 
013737 
012737 


000001 
003120 
000024 


140005 
036550 
036604 


141011 
036550 
000000 
016360 
000002 
000200 


002214 


036552 
036556 


036550 


036550 


644: Mov 01,23 ;ONE RECORD PER “FILE” 
654: MOV FREE , T3OWB ;SET UP PACKETS’S WRITE BUFFER 
#20. . T30SZ sSET RECORD SIZE AT 2000 BYTES 


FSSSSSSSSSSSSSSESSSSSSSSESSSSSSSESSESSSSSSSSESSSSSSSSSSesssessse 
;WRITE DATA,ACK,CVC*1 COMMAND 


a 
§ SSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSS 


MOV #140005 , T30PK3 ;WRITE DATA, ACK, CVC=1 COMMAND 
MOV eTSOPKS RA sSEr Up ne WITH PACKET ADDRESS 
MOV 7 ] 

SWAB OR ’ 15 UBPER Ste 

MOV R3,R1 sGET RECORD COUNTER 

ADD R2.R1 3FILE COUNTER IN UPPER, RECORD @ LOW 

MOV ;MOV TO OUT PUT BUFFER 

MOV R4, TSDBCRS) 

JSR PC. WAITF sWAIT FOR SSR TO SET 

MOV TSSR(RS) RI ; SSR CONTENTS 

MOV : ;SET UP EXPECT 

CMP R1,R2 ;ARE THEY EQUAL 

BEQ 703 ;6R, IF OK 

INC FATFLG ERROR COUNT 

ERRHRD ERRNO, TSOWDD,.PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
"WORD 
“WORD PKTSSR 

70$: CKLOOP ;LOOP IF SELECTED ame 

INC R3 sCOUNT THE RECORD COUNTER DOWN 

CMP R3,021 sAT 20 YET 

BNE 653 ;8R, IF NOT AT 20 RECORDS WRITTEN 


FSSSSSSSSSSSSSSSSHSSSSSSSSSSSESSSESSESSSSSSSESSSSSSSESSesesesesssse 
;}WRITE TAPE MARK,ACK,CVC=1 COMMAND 


a 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSESSESSSSSSSSses 


MoV #141012. T3OPK3 ;WRITE TAPE MARK , ACK CvC=1 COMMAND 
MOV OTSOPKS.R4 ;SET UP R4 WITH BACKET ADORE 
MOV R4, TSDB(RS) 1 ISSUE COMMAND 
JSR PC WATT , SSR TO SET 
MOV TSSR(RS),R1 sPI TSSR 
MOV @SSR,.R2 UP EXPECTED (SSR ONLY) 
CMP R1,R2 WAS STATUS GOOD 
BEQ 160$ 3BR, IF TERMINATION WAS GOOD 
FATFLG ERROR cout 
ERRNO, TSOWDC ,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE I. 
“WORD ? 
“WORD 
WORD PKTSSR 
160%:  CKLOOP ;LOOP IF SELECTED set 


SEQ 0125 


J10 
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5214 


Hetseoesaus & 


034346 


: 
8 


005237 
023727 
001273 


013701 
010102 


036604 
036604 


141011 
036550 


000000 
016360 
000002 
000200 


002214 


011126 


000002 
002214 


036460 


000031 


036550 


INC T3OF CN sCOUNT THE mt ote DOWN 
CMP T3OFCN, #25. SWRITE 25 FILES TO TAPE 
BNE 64$ sB8R, IF NOT AT 25 OF ILES WRITTEN 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSESSSSSESSESSSESSESSESSSSSsesseses 

TWRITE TAPE MARK,ACK,CVC=1 COMMAND 

seueeensseresseunsssnssessmesseeansueenesenencneseceseness 
ysis tz 


WRITE TAPE MARK ACK .CVC=1_ COMMAND 
ett te Ra WITH BASKET ADDRESS 


MOV 3: 
MOV —s«R& TSDBCRS) ; 
JSR PC. WAITF WAIT FOR SSR TO SET 
MOV TSSR(RS),RI sPICK UP TS 
MOV @5SR,R2 ;SET UP EXPECTED (SSR ONLY) 
CMP R1,R2 WAS STATUS GOOD 
BEQ 165$ ;BR, IF TERMINATION WAS GOOD 
INC FATFLG ERROR COUNT 
ERRHRD ERRNO, TSOWDC,PKTSSR ;TSSR NOT CORRECT AFTER Pal T TAPE Meo 
"TORO 224 
“WORD TSOWDC 
"WORD PKTSSR 
165%: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
FSSSSSSSSSSSSSSSSSSESSESSSSSSSSSSESSSSSSSESSSSESSESSSSESSSsesesessesse 
ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
: seeheeemenneneseainesennennernensensessonsensesenth 
JSR REWIND ;CALL TAPE REWIND COMMAND 
BCS irda ;6R, IF NO PROBLEM 
MOV :GEt PACKET ADORESS 
MOV TeeRcRS), Ri ;GET STATUS REGISTER 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP §CSERHRD 
.WORD 225 
"WORD TSORWN 
"WORD PKTSSR 
170%: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSESSSSSSSSesesesese 
{GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
S eebuenonnssesneenansnessnenueneneesesnsnneenenenneneeenes 
MOV T3OBER-6, R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS eeiri. R2 Ser BOT BIT IN EXPECTED 
CMP R1,R2 REC'D 


s 
BEG 180% :BR, IF EQUAL (OK) 


SEQ 0126 


K10 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO VOS.03 Tuesday 28-Apr-87 09:02 Page 76-25 





SEQ@ 0127 
TEST 2: SKIP TAPE MARKS 
7 034 005237 002214 INC FATFLG ERROR COUNT 
5271 034512 ERRHRD ERRNO, T30B0T,EXPREC :TAPE NOT AT BOT AFTER REWIND 
034512 104456 TRAP  CSERHRD 
034514 000 .WORD 226 
034516 037771 "WORD T3O0B0T 
034 01 [WORD EXPREC 
S272 034522 180%: CKLOOP ;LOOP IF SELECTED 
034522 1 TRAP © CSCLP1 
73 034 012737 000002 036604 MOV 02, T3OFCN sSET TO NUMBER OF SKIP ~rLES” 
5274 034532 012703 036566 MOV OTSOIMV RE ;SET UP POINTER TO COMMAND TABLE 
5275 034536 013737 002174 036450 MOV UNITN, TS00SW :SET UP UNIT NUMBER 
5276 034544 011337 036446 162¢: MOV (R3), T30ETM GET NEXT COMMAND 
3277 034550 012704 036430 MOV @TSOPACKET, sSUBROUTINE NEEDS PACKET ADDRESS 
S279 FSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSESSSSESSSSSSSESSSSsssssssessse 
5280 3 
5281 sISSUE WRITE CHARACTERISTICS COMMAND 
5383 : SSSSSSSSSSSSSSESSESSSSESSSSSSSSSSSSESSSSSSSSSSSESSessessesssessssse 
5285 034554 004737 010742 uSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
5286 034560 103407 BCS 188$ BR, COMMAND ISSUED OK 
5287 034562 005237 002214 INC FATFLG ; 
5291 034566 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5292 034570 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
034570 104456 TRAP § CSERHRD 
034572 000343 .WORD 227 
034574 "WORD WRTMSG 
034576 012144 “WORD  SFIMSG 
5293 034600 168%: CKLOOP ;LOOP IF SELECTED 
034600 104406 TRAP = C$CLP1 
S295 FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSESSeSsesssesse 
5296 t 
5297 sSKIP TAPE MARK, ACK,CVC=1 COMMAND 
5298 3 
3$55 §SSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSssssssesse 
301 © ° 141010 036550 MOV 41010, T30PK3 sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
S303 Seance oigt37 036604 036552 MOV T3OFCN, T3ORB sSET UP NurBER To SKIP 
3 034616 012704 036550 MOV OT3OPKS RA SET UP _R4 WITH PACKET ADORESS 
S308 034622 010465 000000 169%: MOV R4, TSDBCRS) 1158 
5305 034626 012737 176750 036606 MOV 065000. ¥ COUNTER 
5306 034634 004737 016360 190%: JSR PC, WAITE ate FoR 8 Sen 
5307 034640 016501 000002 MOV TSSR(RS),R1 sPICK UP T 
2308 034644 032701 000200 BIT @SSR,.R1 115 SSR 
034650 00101 BNE 1918 iR, IF sen 15 sev 
5310 034652 DELAY 250 :CALL DELAY INE 
034652 012727 000250 MOV @250,(PC)- 
034656 . WORD 
034660 013727 002116 MOV LSOLY.(PC)- 
034664 .WORD 0 
034666 005367 177772 bEC -6(PC) 
034672 001375 BNE _-4 
034674 003367 177756 DEC -22(PC) 
034700 001 367 BNE .-20 
$311 034702 37 036606 DEC T3ODLY ;BUMP DELAY ROUTINE 








L1i0 
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034706 001352 190% 
@SSR,R2 
R1,R2 
192% 
FATFLG 
ERRNO, T30SKM, PKTSSR 


192¢: CKLOOP sLOOP IF SELECTED 


FSSSSSSSSSSSSSSSESSSSSSSSESSSSSSSSSSSSSESSSESSSSESSSSSSSSesseses 
iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
Leageesnenuennnnnaeeessseesensesssssnenseennesnsanensent 
T30BFR-6,R1 PICK UP XSTO 
Ri CET ue EXPEeT 
#68iT15,R2 
R1,R2 


195% 

FATFLG 8 

ERRNO , TSOTMK , EXPREC 3; TMK NOT SET AFTER WRT TAPE MARK 
TRAP CSERHRD 


229 
-WORD TSOTMK 
-WORD EXPREC 


Csc.P1 


sLOOP IF SELECTED -_ 

sVALUE TO WRITTEN TO MEMORY 

sFILL MEM WITH ALL ONES 

sSTARTING READ BUFFER ADDRESS 
j SSSSeoesesseseeceseeeeeeeeeeeeeseeeeeeeeeeeseseseeseseses 


}READ FORWARD, ACK,CVC=1 COMMAND 


é 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSesses 


Rc ) 


sn 


CT AFTER WRITE DATA 
TRAP CSERHRD 
. <0 
- WORD 3OROF 
-WORD PKTSSR 





M10 
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TEST 2: SKIP TAPE MARKS 
5364 035070 
035070 

S365 035072 146022 

5366 03507 177777 


002214 


013701 
010102 


2008: ;LOOP IF SELECTED 
TRAP CSCLP1 

@FREE,R1 sFIRST LOC IN READ BUFFER 

0177777 ,R2 sEXPECTED IF NO DATA TRANS. 

R1,R2 {01D ANY DATA GET TRANSFERRED 

220% :8R, IF NO_DAT DATA TRANS (GOOD) 

FATFLG 

ERRNO 


COUNT 
"T3ODTR,EXPREC JDATA TRANSFERRED ON READ. TAPE MARK 
C$ERHRO 
wono | SSi 
“WORD 
“WORD 
TRAP 


sLOOP IF SELECTED 
NUMBER OF SKIPS 


sGET 
iSET TO ae FILE VALUE 
TE HALVES 


228% 
FATFLG 
ERRHRD ERRNO, TSOPTB,EXPREC 


226%: CKLOOP sLOOP IF SELECTED 


sPSSSS SS SSeS SSSeSSSeESSS SSeS SS TeSSSSESEESSSSESSeESSETSESES 
} ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


So =) oa RMR 
sCALL rae REWIND COMMAND 
PROBLEM 


IF NO 

sSAVE PACKET ADDRESS 

MOV TeeRCRS), R1 3GET TSSR STATUS 

INC FATFLG : OUNT 
ERRNO, TSORWN, PKTSSR ;REWIND NOT ACCEPTED 


JSR 
BCS ashe 
MOV 


230%: CKLOOP sLOOP IF SELECTED 


FSSC S SESS SS SES SSSSESESESESeSSSSESSESSEeESESSESESEEEESESS 
:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
: SHSSSSSSSsesesseseseSeeSeSeeSeSeSSESeESESESeeSeSeESESETSS 


MOV T3OBFR+6,R1 yt UP_XSTO 
MOV R1,R2 sSET UP EXPECTED 
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5414 035226 


000002 


#B1T1,R2 
R1,R2 


240% 
FATFLG 
ERRNO, TSOBOT , EXPREC 


at Sten 
T30FCN, R1 


Rt T30FCN 
162$ 


FATFLG, #15. 
999% 
PC, CKDROP 
999%: 
3° 


iTEST 2, SUBTEST 3 
f 


IVERIFIES THAT A SKIP TAPE HARKS 


sSET BOT BIT IN EXPECTED 

sDOES EXP = REC'D 

:BR, IF EQUAL (OK) 

eae COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 

sLOOP IF SELECTED 
TRAP 

sPOINT TO NEXT POSITION 

C ETC. 


TO MORE 
sLOOP IF SELECTED 
TRAP CSCLPi 
3<<¢<<¢¢¢<¢¢¢¢ END ergs" >>>>>>>>>>> 
: 
TRAP CsESuB 
31S ERROR COUNT AT 25 
:8R, IF LESS THAN ote 
sTRY TO DROP THE UNI 


REVERSE COMMAND 
sISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 
SFUNCTION REJECT Mat dt WITH THE NON-EXECUTABLE 


sFUNCTION (NEF) ERROR BIT 


g>>>>>>>>>>>> SUBTEST >>>>>>>>>>>> 
CsBSUB 
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SEQ 0131 
TEST 2: SKIP TAPE MARKS 
035372 013727 002116 MOV LSDLY,(PC)- 
035376 000000 .WORD 0 
3 005367 177772 bEC -6(PC) 
035404 001375 BNE vo 
005367 177756 DEC -22(PC) 
035412 001367 BNE .-20 
5462 035414 005337 036606 DEC T30DLY ;BUMP COUNTER 
5463 035420 001356 BNE 10 :BR, IF MORE COUNTING TO DO 
5464 035422 003237 002214 INC FATFLG ERROR 
5468 035426 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
5469 035430 ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
035430 1044 TRAP C$EROF 
035432 000353 .WORD 235 
035434 003650 “WORD SFIERR 
035436 012144 ‘WORD SFIMSG 
5470 035440 208: 
5471 035440 013737 002174 036450 MOV UNITN, T3ODSW ;SET UP UNIT NUMBER 
2472 035446 012704 036430 MOV OTSOPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
se7s FESSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SS SESSESSSSSESSESES SESE SES ESEESTSE 
3 4 
3476 ;ISSUE WRITE CHARACTERISTICS COMMAND 
: 
pd FFSSSSSSSSSSSSSSESSSS SESS SSS ESSE SS KSS SSS SSE SEES SESSESSKSESSESSESSE 
5480 035452 004737 010742 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
5481 035456 103407 BCS 233 38R, IF COMMAND ISSUED OK 
5482 035460 005237 002214 INC FATFLG ; 
5486 035464 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5487 035466 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
035466 104456 TRAP § C+ERHRD 
035470 000354 .WORD 236 
035472 "WORD WRTMSG 
035474 012144 ‘WORD SFIMSG 
5488 035476 234: CKLOOP ;LOOP IF SELECTED 
035476 104406 TRAP C$CLP1 
Fat SEER ESE EE RE KE EERE EERE R REE RIESE REE BOR EE OE 
3 
3492 sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
5 
ot SPEER KOEHN ESTEE EKER EERE KEE KERR SE He ORE EE 
5496 035500 004737 011126 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
5497 035504 103411 BCS 303 36R, IF NO PROBLEM 
5498 035506 010004 MOV RO,R4 ' PACKET ADDRESS 
5499 035510 016501 000002 MOV TSSR(RS),R1 ;GET STATUS REGISTER 
5500 035514 005237 002214 INC FATFLG sERROR COUNT 
5504 035520 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
035520 104456 TRAP § C$ERHRD 
035522 000355 .WORD 237 
0 040170 "WORD TS3ORWN 
035526 012156 "WORD PKTSSR 
5505 035530 30$: CKLOOP ;LOOP IF SELECTED 
035530 104406 TRAP = C#CLP1 


5507 FFSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSSSSSSESSSSESS 
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SEQ@ 0132 
TEST 2: SKIP TAPE MARKS 


:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


5510 : 
sei} FFSSSSSSSSSSSESSSSS SSS SSSES SSS SSS SESS SESS SESESSSESSE SESS SESS SEES SS 
5513 035532 013701 036460 MOV T30BFR-+6,R1 sPICK UP _XSTO 
5514 035536 010102 MOV R1,R2 ;SET UP EXPECTED 
5515 035540 052702 000002 BIS #B81T1,R2 SET BOT BIT_IN EXPECTED 
5516 035544 020102 CMP R1,R2 S EXP = REC'D 
5517 035546 001406 BEQ 408 j8R, IF EQUAL (OK) 
5518 035550 005237 002214 INC FATFLG COUNT 
5522 035554 ERRHRD ERRNO, T3OB0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
035554 104456 TRAP  C$ERHRD 
035556 .WORD 2 
3 037771 “WORD T3OB0T 
035562 01 "WORD EXPREC 
5523 035564 40$: CKLOOP ;LOOP IF SELECTED 
035564 104406 TRAP = C$CLP1 
5524 035566 012737 000001 036552 MOV #1, T30WB :SET @ OF TM TO SKIP 
sess FFSSSSSSSSSSSSSSSSSSSESSESSSSSSESSSSSSESSESSE SSE SS SESS SSS SESseseessesse 
4 
3328 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 
° 
seer FFSSSSSSSSHSSSSSSESSSSSSSESSSSESSESSSSSSSESSSSESS SSS SSSessessesses 
5532 035574 012737 141410 036550 MOV #141410, T3OPKS ;SKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 
5533 035602 012704 036550 MOV OT3OPK3.R4 sSET UP R4 WITH PACKET ADDRESS 
5534 035606 010465 000000 MOV R4, uate OMMAND 
5535 035612 004737 016360 JSR PC, WA ;WAIT FOR SSR TO SET 
5536 035616 016501 000002 MOV TSSR(RS a :GET TSSR CONTENTS 
5537 035622 012702 100206 MOV ossn1 sc 161 1!B81T2,R2 :SET UP EXPECTED 
5538 035626 020102 CMP R1,R2 3ARE THEY EQUAL 
5539 035630 001406 BEQ Zot :6R, IF OK 
5540 035632 005237 002214 INC FLG ERROR COUNT 
5544 035636 ERRHRD ERAN’ T3O0IBT ,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
035636 104456 TRAP «C$ 
035640 000357 .WORD 239 
035642 036761 “WORD TS3OIBT 
035644 012156 "WORD PKTSSR 
5545 035646 708: CKLOOP ;LOOP IF SELECTED 
a 035646 104406 TRAP = CSCLP1 
Seag FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSsesessesssse 
t 
5549 :GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
gaan ry 
Pret FEKETE SSE RK SKS ER HEE EKER TE KE SHREK HSH SS SCE SEK KERTH 
5553 035650 013701 036460 MOV T3OBFR-6,R1 a8 uF cist xsTO 
5554 035654 010102 MOV Ri 
5555 035656 702 002000 BIS e6iT10.R2 NEF OIT. In EXPECTED 
5556 035662 020102 CMP Rl, Re + TeES EXP = REC'D 
5557 035664 001406 BEQ 1804 iBR, IF EQUAL (OK) 
5558 035666 oos23? 002214 INC ATFLG gERROR 
5562 035672 ERRHRD ERRNO, TSONEF ,EXPREC sTAPE NOT AT 
035672 104456 TRAP § CSERHRD 
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SEQ 0133 
TEST 2: SKIP TAPE MARKS 


000 . WORD 
-WORD  EXPREC 
sLOOP IF SELECTED 


TRAP CSCLPi1 
3<<<¢<¢¢<¢¢¢<¢ END SUBTEST >>>>>>>> >>> 
L10046 


CsESuB 
002214 000017 FATFLG, #15. :I1S ERROR 
0 999$ ;6R, IF LESS 
017312 PC, CKDROP sTRY TO DROP THE UNIT 
999%: 
| id 


TEST 2, SUBTEST 4 
D 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
LE THE TAPE IS POSITIONED JUST BEFORE THE 
MINATIONS ULTN THE REVERSE NTO BOT” 
‘PRBS status TeRRINAT ; 


3>>>>>>>>>>>> Geet Raves! >>>>>>>>>>>> 
2.4: 
TRAP C$B8SUB 


BGNSUB 
JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 


250, (PC )- 
LSOLY,(PC)+ 
~6(PC) 
=29¢PC) 
os -20 

sBUMP COUNTER 

18R, IF MORE COUNTING TO DO 

ERROR COUNT 

CONTENTS OF TSSR REGISTER 

}FATAL ERROR TSSR WAS NOT OK 

_MORD 

. 

WORD 
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TEST 2: SKIP TAPE MARKS 


5603 036034 013737 002174 036450 MOV UNITN a Bi sSET UP_UNIT NUMBER 
5604 036042 012704 036430 MOV OTSOPACKET,R sSUBROUTINE NEEDS PACKET ADDRESS 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSESSSSS SESS SSS 


}ISSUE WRITE CHARACTERISTICS COMMAND 


: 
a j FSSSSSS SSS SSS SSSTESSSESeRSSETeSESETEEESEESESeEESETESSSETS 
3612 004737 010742 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
5613 103407 BCS 23% sBR, IF COMMAND ISSUED OK 
5614 002214 INC FATFLG 3 
5618 1 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5619 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC eo 


5607 


23%: CKLOOP sLOOP IF SELECTED 


SESSSSSSSSS SS SSS SSS SSS SSeS SESS SS SESS ESET ES ESE SEES EE EESEEES 
’ 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


e 
§ FSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSESSESSSSSSSSSSSSSESS SSS ESSE 


PC ,REWIND ;CALL TAPE REWIND COMMAND 
30$ ;6R, IF NO PROBLEM 
RO,R4 :GET PACKET ADDRESS 
TSSRCRS) RI GET STATUS REGISTER 


G sERROR COUNT 
ERRNO, TSORWN, PKTSSR sREWIND NOT ACCEPTED 


JSR 
BCS 
MOV 


5620 
3621 
S622 
5623 
S624 
S625 
5626 
S627 
3628 
3629 
5639 
5631 
5632 
5636 


MOV 
INC 


30$: CKLOOP sLOOP IF SELECTED 


FFSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSssesesesss 

}GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

| sepeneensnneneneseneenenenennenenaseneesnsenesesenees 
T3OBFR-6,R1 ;PICK UP XSTO 
R1,R2 sSET CTED 
e6iT1.R2 1SEt BOT BIT IN EXPECTED 
1,R2 = REC'D 
40 18R, IF EQUAL (OK) 
FATFLG 


ERROR COUNT 
ERRNO, T3OB0T , EXPREC :TAPE NOT AT BOT AFTER REWIND 


33333333333 349: 





Fil 
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SEQ 0135 
TEST 2: SKIP TAPE MARKS 


S655 036160 40$: CKLOOP ;LOOP IF SELECTED 
5656 Oseiee o1373 : 003120 036552 MOV FREE , T3OWB SET UP GOOD WRITE ovrern _— 
° 3 
3637 036170 012737 000400 036556 MOV $256. ,130SZ ;SET UP SIZE 
623 FSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsessess 
: 
5661 sWRITE DATA,ACK,CVC=1 COMMAND 
Q 
Foe] POSS EH STS SHA SKSESHEKSHK HME SSK RSH SE SHES HESS HEHE S EH EERE SEE 
5S 036176 012737 140005 036550 MOV #140005, T30PK3 WRITE DATA,ACK,CVC=1 COMMAND 
se? 036204 012704 036550 MOV $1 30eK3 SET UP R4 cain 9 ADDRESS 
5667 036210 010465 000000 MOV R4. TSDBCRS) 31 
5668 036214 004737 016360 JSR PC; WAIT ;WAIT FOR SSR TO SET 
5669 036220 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
5670 0 012702 000200 MOV R2 ;SET UP EXPECTED 
5671 036230 020102 CMP R1,R2 ;ARE THEY EQUAL 
3678 036232 001406 BEQ 70% :BR, IF OK 
5673 036234 005237 002214 INC FATFLG ERROR 
5677 036240 ERRHRD ERRNO, TSOWDD,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
036240 104456 TRAP  C#ERHRD 
036242 00036 .WORD 245 
036244 0371 "WORD T3OWDD 
036246 0121 “WORD PKTSSR 
5678 036250 708: CKLOOP ;LOOP IF SELECTED 
sae 036250 104406 TRAP —s- C$CLP1 
Forty FSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSSSSSSSSSESSSSESSSSESESess 
2 
3682 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 
3 
S684 FSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSESSESSSSSSSSsssesseses 
soso 012737 000001 036552 MOV 01, T30WB :@ OF T™ TO SKIP 
3687 036260 012737 141410 036550 MOV $141410, T30PK3 ;SKIP TAPE MARK REVERSE, ACK,CVC*1 CMD 
036266 012704 dsesso MOV OTSOPK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
5689 036272 010465 000000 MOV R4, TSDBCRS) s1SSUE COMMAND 
5690 036276 004737 016360 JSR PC. WAITF sWAIT FOR SSR TO SET 
5691 036302 016501 000002 MOV TSERCRS) R1 sPICK UP TSSR 
3698 036 012702 100204 MOV @S5SR!BIT2!SC,R2 sSET UP EXPECTED (SSR AND SC ONLY) 
036312 020102 CMP R2 sWAS STATUS 
5694 036314 001406 BEQ 160$ ;8R, IF TERMINATION WAS GOOD 
5695 036316 005237 002214 INC FATFLG ERROR COUNT 
036322 ERRHRD ERRNO, TSOIBU,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE M. 
036322 104456 TRAP CSERHRD 
036324 000 .WORD 246 
036326 036610 "WORD T3OIBU 
036330 0121 "WORD SSR 
5700 036332 160%:  CKLOOP ;LOOP IF SELECTED 
036332 104406 TRAP =—s-_-« C$CLP1 


pPSCSSeeeeesseseeeeeeeeeeeeeeESeeEeSESSESSESSESeSESESSEESS 
1GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 
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SEQ 0136 
TEST 2: SKIP TAPE MARKS 
707 
708 036334 013701 036466 MOV TSOBFR+14,R1 sPICK UP XST3 
5709 036340 010102 MOV R1,R2 sSET UP EXPECTED 
710 036342 052702 000001 BIS *BiT0, R2 ise RIB BIT IN EXPECTED 
711 036346 020102 CMP R1,R2 EXP = REC'D 
712 036350 001406 BEQ 170% ;8R, IF EQUAL (OK) 
3717 osesse (21M ERRHRD ERRNO TSORIB,EXPREC Tape Not AT RIS 
° . a 
036356 104456 TRAP CSERHRD 
036360 000367 -WORD 2 
036362 036675 -WORD T3ORIB 
036364 015604 «WORD EXPREC 
5718 036366 170%: CKLOOP sLOOP IF SELECTED 
036366 104406 TRAP CSCLP1 
5719 036370 ENDSUB 3<<<¢<<¢<¢¢¢<¢ END SUBTEST >>>>>>>>>>> 
036370 L10047; 
036370 104403 TRAP CsESUB 
20 036372 023727 002214 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
5721 036400 103402 BLO 999% 3BR, IF LESS THAN 25 
S722 036402 004737 017312 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
S723 036406 999%: 
sSUBTEST END 
3736 
3 
S727 036406 004737 016566 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
5728 036412 103002 BCC 400$ sBR, IF NO LOOP REQUIRED 
S729 036414 000137 032310 JMP T30LOOP sEXECUTE AGAIN 
5730 036420 400%: EXIT TST sALL DONE THIS TEST 
036420 104432 TRAP CsEXIT 
. 036422 002736 -WORD L10043-. 
S73. 3° 
si3g sLOCAL STORAGE FOR THIS TEST 
i- 
5735 036430 .*<.*10>€177770 
5737 036430 TS3OPACKET: sCOMMAND PACKET FOR TEST 
5738 036430 100004 WORD oooes sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
5739 Sarees 036440 WORD acne sADDRESS OF CHARACTERISTICS BLOCK 
5741 036436 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE - 
3748 036440 T3ODATA; sCHARACTERISTICS DATA BLOCK 
43 036440 036452 -WORD TSOBFR sADDRESS OF MESSAGE BUFFER 
5744 036442 000000 -WORD O 
5745 036444 000024 WORD 20. oLENG TY OF MESSAGE BUFFER 
5746 036446 000000 T3OETM: .WORD O sSKIP TAPE MARK CONTROL 
747 036450 000000 T300SW: .WORD 0 sSELECT DRIVE O 
Fs 036452 TSOBFR: .BLKW 25. sMESSAGE BUFFER 
e 
sree ’ sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
8 
5753 036540 -*<,°10>€177770 
5755 036540 T30PK2: 
S756 036540 «WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
$757 tot ay] 036560 - WORD gacere sADDRESS OF SELECT BLOCK DATA 
S759 036546 000006 «WORD 6. sSIZE OF DATA PACKET 


5760 
5764 036550 T3OPK3: 


Hii 
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SEQ 0137 
TEST 2: SKIP TAPE MARKS 
76S 036550 100205 -WORD 100205 sREREAD COMMAND, IE AND ACK 
Sree 036552 T3ORB: 
5767 036552 003120 T30WB: .WORD FREE sADDRESS OF WRITE BUFFER 
ares 036554 000000 . WORD 0 
769 036556 000000 T30SZ: .WORD 0 sSIZE OF BUFFER CEXTENT) 
S770 .EVEN 
$771 3 
S772 3 
5774 036560 $308F2: 
S775 036560 010 T30BSO: .BYTE 10 ;BSELO AREA 
5776 036561 200 T30BS1: .BYTE 200 sBSEL1 AREA 
S777 036562 000000 T30S2: WORD re) sSEL 2 AREA 
gre 036564 000000 T30S3: WORD 0 sDATA AREA 
F 
780 5 
5761 .EVEN 
greg sTAPE MOTION PACKET COMMAND VALUES 
5784 036566 T3OIMV: 
S785 036566 T3ORN: 
036566 . WORD 000000 sNEITHER EWB NOR ESS 
787 036570 000100 . WORD 000100 sEWB SET 
5788 036572 . WORD 000200 sESS SET 
5789 036574 . WORD ;BOTH EWB AND ESS SET 
FL 036576 177777 .- WORD 177777 sEND OF DATA 
5792 
5793 036600 000000 +30CNT: . WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
S794 036602 000000 - T3OCNU: .WORD re] sTAPE TIMER COUNTER STORAGE AREA 
S795 036604 000000 T3OFCN: .WORD 0 sFILE NUMBER COUNTER 
73s 036606 000000 T3ODLY: .WORD 0 sDELAY COUNTER STORAGE 
S79 3° 
5798 sLOCAL TEXT MESSAGES FOR TEST 
5800 on 
5801 036610 124 3 123 TS3OIBU: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT" 
5802 036675 122 i111 102 T3ORIB: .ASCIZ ‘RIB Bit exsTs) Feiled To Set After Reverse Into BOT’ 
5803 036761 124 123 123. TS3OIB6T: Aes *‘TSSR Incorrect After SKIP TAPE MARK REVERSE | At BOT’ 
5804 037044 124 123 123 TSOSKM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK 
5805 037120 124 123 T3OWDD: .ASCIZ ‘TSSR Not Correct After WRITE _- Commend’ 
5806 037172 124 141 160 TSOPTB: .ASCIZ ‘Tepe Not Positioned t Record After READ REVERSE’ 
S607 0372635 124 14 160 T3OTPB: .ASCIZ a Not Positioned On Second File First R 
5608 037343 124 12 T3SORDF: .ASCIZ 'T Incorrect After Sate. FORWARD pone Ses “File”' 
5809 oo7e2h 124 123 123 T3ORDG: .ASCIZ et preegrest After Command inte y > ° 
58610 03750 124 123 TSOWDF: .ASCIZ Not Correct hy ahelot 
5811 037560 111 T30L0@: “ASats 2 Tegel tege Fits. giles | Feiled T tc" Bit is* xSTO 
5812 037641 127 122 111 T3OSSR: .ASCIZ ‘WRITE MI 
5813 0377 124 123 TSOWDE: .ASCIZ ‘TSSR Not nect yang] SKIP Tite MARKS, At BOT’ 
14 0 124 14 160 T30B0T: .ASCIZ ‘T Not At BOT After Commend’ 
15 0400 124 12 123 T30TM: Aerts a Not Correct After SPACE FORWARD comand’ 
58616 040113 124 T3OTM2: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE 4 
5817 040170 122 145 167 TSORWN: .ASCIZ ‘Rewind (POSITION) Not 
5818 040237 104 151 T3OOFL: ASatS ‘Drive 7 Select Feiled To Set Tee In a 
5819 040312 124 123 123 T3OWOC: .ASCIZ ‘TSSR Not Correct After URITE 7 
040371 103 103 TSOVCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In a er 
124 115 113 T3OTMK: .ASCIZ ‘TMK Not Set After URITE TAPE MARK (RETRY) ae 


til 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO VOS.03 Tuesday 26-Apr-87 09:02 Page 76-36 
TEST 2: SKIP TAPE MARKS 


041300 
304 
1310 


BERETEReeuvasa 
SERLLLLLE 


ve 

eet 
832 
SE% 


eee 
Slatan 
Besse 
ee 


see 
343 


123 


edd ed ed od od 
Ul Ree be 
Ue NU 


036550 


036452 


TSONEF: .ASCIZ ‘SKIP TAPE MARKS, At 
TSORRM: .ASCIZ ‘TMK Not Set After RE 
T3ORRN: .ASCIZ ‘TMK Not Set Af 

T3ORRP: .ASCIZ 

T3ODTR: .ASCIZ ‘NO Dete ronnres On 
T3ODTA: .ASCIZ ‘Date Compere E 

TST3OID: ome -ASCIZ ‘Skip Tape 


3° 


ee a ang 


rror, seep Read From Tape Not Equel To Written’ 


INE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
COMMAND 


;ROUT 

iWRITE SUBSYSTEM MEMORY 
; 

os 


T3OREST: 


SAVREG 
MOV @T3OPACKET ,R1 
MOV #100004, (Ri)- 
MOV O@TSODATA, (Ri )- 
eS cm 
MOV OTSOBFR,(R1)- 
CLR (R1)- 
MOV $20. ,(R1)- 
Sov $0221) 
MOV $24. 
645: MOV 0177777, TS3OBFR(R2) 
TST -(R2) 
CMP 00. ,R2 
BNE 643 
RTS PC 
T3ORT2: 
SAVREG 
MOV OT3OPK2.R 
MOV #100006 , (R1)- 
MOV @T30BF2,(R1)- 
CLR (R1)- 
MOV 66. ,(R1)- 
CLR (Ri. 
MOV 6T30BF2.R1 
CLR CRI» 
CLR (R1 
RTS PC 
T3ORTS: 
SAVREG 
MOV @T3OPK3,R1 
R R1l)- 
R Ri)- 
R R1)-« 
CLR (Ri) 
RT PC 
TST 


sSAVE_THE REGISTERS 
sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT = ZERO 
LOCATIONS TO s. CLEARED 
MESSAGE BUFFER 


TENDED 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 

sSET UP POINTER ADDRESS 

| COMMAND SPACE 

tate OF ree BLOCK 

iSIZE OF DATA TRANSFER BLOCK 
RETURN 


L10043: 
TRAP CsETST 


SEQ 0136 
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(“CLEAN TAPE”) AND INITIALIZE 


TEST 3: NO-OP 


Sesse Seupasseeeass 


012737 


000000 
013727 


006356 002172 
046473 


016620 
000005 002210 
043266 


SEQ 0139 


-SBTTL TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 
. 


;THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
: 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
: 


T3:: 


1, EPRTSW MESSAGE 
TO IDENTIFY TEST 
SETUP 


:PERF 

iCLEAR TAPE RECORD COUNT 
; 
s- 


T31L00P: 
t ad 


TEST 3, SUBTEST 1 


VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THe ot STATUS COMMAND), AND 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 
WRITTEN WITH SEQUENCED TEST RECORDS. 3, IS THEN REWOUND AGAIN 
AND THE NO-OP COMMAND IS ISSUED. It IS VERIFIED THAT THe TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (T0 CHECK TAPE POSITION. AND 
VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND I 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


C$B8SUB 
PC.T iy 


cs ht 


G858..CPC)- 
LSOLY,(PC)- 





Kil 
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SEQ 0140 
TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 
041456 000000 .WORD 0 
041460 005367 177772 bEC -6(PC) 
041464 001375 BNE _-4 
041466 005367 177756 DEC -22¢PC) 
Oaia7a 902387 043272 DEC T31DLY BUMP ER eee 
; 
5933 041500 001356 BNE 10% :BR, IF COUNTER NOT DONE 
041502 005237 002214 INC FATFLG ;ERROR COUNT 
938 041506 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
939 041510 ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
041510 104455 TRAP CSEROF 
041512 0004 . WORD 1 
041514 003650 “WORD SFIERR 
041516 012144 “WORD SFIMSG 
041520 013737 002174 043140 20%: MOV UNITN, T31D0SW :SET UP UNIT NUMBER IN PACKET 
5941 041526 012704 043120 MOV OTSIPACKET .R4 ;SUBROUTINE NEEDS PACKET ADORE 
5942 041532 004737 010742 JSR PC, WRT TISSUE WRITE CHARACTERISTICS 
5943 041536 103407 BCS 233 ;8R, IF COMMAND ISSUED OK 
5944 041540 005237 002214 INC FATFLG 3 
5948 041544 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5949 041546 ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
041546 104456 TRAP  CSERHRD 
041550 . WORD 
041552 "WORD WRTMSG 
041554 012144 "WORD SFIMSG 
5950 041556 234: CKLOOP ;LOOP IF SELECTED 
041556 104406 TRAP =s-—«sCSCLP1 
5951 041560 004737 011126 PC .REWIND :CALL TAPE REWIND COMMAND 
3932 041564 103407 BCS 303 ;6R, IF NO PROBLEM 
041566 010004 MOV RO,R4 ; UP REWIND PACKET ADDRESS 
5954 041570 005237 002214 INC FATFG ;ERROR COUNT 
5958 041574 ERRHRD ERRNO, T31AWN,PKTSSR sREWIND NOT ACCEPTED 
041574 104456 TRAP  § C4ERHRD 
041576 000457 : 30 
i "WORD TS3IRWN 
041602 0121 [WORD PKTSSR 
5959 041604 30$: CKLOOP sLOOP IF SELECTED 
041604 104406 TRAP =s-—« CCL P11 
5960 041606 013701 043150 MOV T31BFR-6,R1 PICK uP xSTO 
5961 041612 010102 MOV R1,R2 TED 
3362 041614 052702 000002 BIS #8iT1.R2 MEET BOT BIT IN EXPECTED 
041620 020102 CMP R1,R2 ;00ES EXP = REC'D 
5964 041622 001406 BEQ 403 i8R, IF EQUAL (OK) 
5965 041624 37 002214 INC FATFLG ERROR COUNT 
5969 041630 ERRHRD ERRNO, 731807 ,EXPREC :TAPE NOT AT AFTER REWIND 
041630 104456 TRAP  CS$ERHRD 
0416 .WORD 304 
041634 044275 "WORD 731807 
041636 015604 “WORD  EXPREC 
5970 041640 40$: CKLOOP ;LOOP IF SELECTED 
041640 1 TRAP = C4CL P12 
1 041642 013737 003120 MOV FREE ce 1318 sSTARTING WRITE BUFFER ADDRESS 
7@ 041650 012 1 043240 65%: MOV sisincs »T31PK3 {WRITE DATA. veverk ACK COMMAND 
041656 012704 04 MOV 31 S1PKS Aa sSET UP R4 PACKET ADDRESS 
5974 041662 012700 000144 MOV Se) PATTER IN CORRECT REGISTER 
5975 041666 004737 017532 JSR oe sE TLL MEMORY WITH RECORD SI 
5976 041672 012737 000144 043246 HOV pc rite UP RECORD SIZE IN P 


Lil 
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TEST 3: NO-OP (“CLEAN TAPE“) AND INITIALIZE 
5977 041700 000000 R4, TSDBC(RS) 
004737 016360 JSR PC. WAITF 
000002 TSSR(RS), RI 
000200 @5SR,.R2 
Ri Re 


80 
FATFLG 
ERRNO, T31WDC ,PKTSSR 


PC ,REWIND 
230% 


RO,R1 
FATFLG 
ERRNO, T31RUN, EXPREC 


T31BFR-6,R1 
R1,R2 
#6i71,R2 
R1,R2 


$ 
FATFLG 
ERRNO , T3180T ,EXPREC 


0041012, T31PK3 
Ts R4 


Rosesesses 


G 
ERRNO, TSLROF ,PKTSSR 


TSIBFR-6,R1 
R1,R2 


SEQ 0141 


ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 


CSERHRD 
-WORD 305 
° SSR 


LOOP IF SELECTED 
P CsCLP1 


sLOOP IF SELECTED 


ae ue caer 

3 UP EXPECTED 

sSET BOT BIT IN EXPECTED 
S EXP = RE 


;LOOP IF SELECTED 
sNO-OP ,CVC=1 
3SET WP RS PACKET ADDRESS 
UP RECORD SIZE IN PACKET 
COMMAND 


sLOOP IF SELECTED 


PICK UP XSTO 
CET UP EXPECTED 





Mil 


TEST 1 - HARDWARE TEST 


TEST 3: NO-OP 


(“CLEAN TAPE”) AND INITIALIZE 
000002 


o 
wn 


#61T1,R2 
R1,R2 


Bg 


285% 
FATFLG 
ERRNO, T31B0T , EXPREC 


z 


ys map a T31PKS 
OT31PK3 ,R4 


#100. , 731SZ 
R4, TSOBCRS) 
PC. WAITF 
TSSR(RS),R1 
@SSR,R2 


R1,R2 

290% 

FATFLG 

ERRNO, TSIRDE ,PKTSSR 


ERRHRD 
CKLOOP 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 
CKLOOP 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 


FATFLG, #15. 
999% 
PC ,CKDROP 
999%: 
id 


iTEST 3, SUBTEST 2 


VERIFIES THAT 
NO 
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SET 807 BIT. IN EXPECTED 
I ROES EXP s REC'D 
tORT IF EQUAL COK) 


ERROR COUNT 
:TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


sREAD,ACK,CVC=1 COMMAND 

sSET UP nae WITH PACKET ADORE 

1SE1 UP RECORD SIZE IN P PACKET 
COMMAND 

{WAIT FOR SSR TO SET 

, TSSR CONTENTS 

sSET wp EXPECTED 


; ARE THEY EQUAL 
3 . nn 


COUNT 
STSSR INCORRECT APTER READ DATA 


sLOOP IF SELECTED 
TRAP 


3;GET DATA READ 

sREAD EXPECTED 

s0ID TAPE STAY POSITIONED 
sBR, EXPD = RECD 


ERROR COUNT 
:TAPE DATA NOT CORRECT 
TRAP 


- WORD 

. WORD 
$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
CsESUB 


sIS ERROR COUNT 
fat IF LESS THAN 25 


Y TO DROP THE UNIT 


INITIALIZE COMMAND OPERATES AS A _NO-OP, 
ERRORS ARE PRESENT 
N PREVIOUS TESTS). 
USED IN SUBTEST 1. 


CTHEY WOULD 
THE TEST 





Nii 
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SEQ 0143 
TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


6076 3 
6077 ;< 
6078 042270 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042270 73.2: 
270 1 TRAP C$BSUB 
6079 042272 004737 046540 JSR PC, T31REST sSET COMMAND PACKET 
276 004737 32 JSR PC. T31IRT2 3SET UP OTHER COMMAND PACKET 
6081 042302 004737 74 JSR PC, T31IRTS 3SET UP OTHER COMMAND P 
306 004737 016104 JSR PC, SOFT 300 INITIALIZE ON CONTROLLER 
312 103407 BCS 203 :6R IF INIT WA 
6084 042314 37 002214 INC FATFLG COUNT 
6088 042320 010001 MOV RO,R1 SCONTENTE OF TSS REGISTER 
6089 042322 ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
042322 1044855 TRAP CSERDF 
042324 000470 .WORD 312 
042326 003650 ‘WORD SFIERR 
042330 012144 “WORD SFIMSG 
6090 042332 013737 002174 043140 20%: MOV UNITN, T310SW :SET UP UNIT NUMBER IN PACKET 
6091 042340 012704 043120 MOV OTSIPACKET,R4 sSUBROUTINE NEEDS PACKET ADORE: 
042344 7 010742 JSR TISSUE WRITE CHARACTERISTICS 
6093 042350 103407 BCS 23 38R, IF COMMAND ISSUED OK 
042352 002214 INC FATFLG : 
6098 042356 010001 MOV 1 sSAVE CONTENTS OF TSSR 
6099 042360 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
042360 104456 TRAP  C4ERHRD 
042362 000471 .WORD 313 
042364 [WORD WRTMSG 
042366 012144 “WORD SFIMSG 
6100 042370 234: CKLOOP ;LOOP IF SELECTED 
042370 104406 TRAP CSCLP1 
6101 042372 004737 011126 PC REWIND :CALL TAPE REWIND COMMAND 
6102 042376 103407 BCS 303 :6R, IF NO 
6103 042400 010004 RO,R4 3SET UP REWIND PACKET ADDRESS 
6104 042402 005237 002214 INC FATFLG : Cc 
6108 042406 ERRHRD ERRNO, TSIRWN,PKTSSR sREWIND NOT ACCEPTED 
042406 104456 TRAP #ERHRO 
042410 000472 ; 14 
042412 "WORD T3iRWN 
042414 012156 . PKT 
6109 042416 30%:  CKLOOP ;LOOP IF SELECTED 
042416 h TRAP =-« C$CLP1 
6110 042420 015703 043150 MOV ce PI we xSTO 
S112 Sezee O42703 00002 ts £T1,R2 1SET BI * 
611 oaseSs 020102 erS Se’ sD0ES nec-b — 


6114 042434 001406 BEQ 204 10, IF EQUAL 


) 
0424 0022 A ERROR 
sits pet " ERRHRO ERRNO TSIBOT .EXPREC TAPE Not AT R cone REWIND 
5 
ie fit 
_ IF SELECTED 


CKLOOP 
39 120 04 MOV 1 
sia Stee SH; QUE SHES aos, IY ERs §=| RDU ATE res 


csc. Pi 
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TEST 3: NO-OP 
6124 042474 
6125 042500 


012700 
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("CLEAN TAPE”) AND INITIALIZE 


017532 
1 


016360 


011126 


002214 


043150 
000002 


002214 


041012 
043240 
043246 
000000 
016360 
000002 
000200 


002214 


043246 


80$: 


230%: 


2403: 
043240 265%: 


280%: 


2238355388 a 


Es 


2 
8 


TSSRC RS),R1 
@SSR,R2 
Ri Re 


FATFLG 
ERRNO, T31WOC ,PKTSSR 


PC , REWIND 
230% 


RO,R1 
FATFLG 
ERRNO, T31RWN,EXPREC 


T31BFR+6,R1 

R1,R2 

@B81T1,R2 
R2 


240% 
FATFLG 
ERRNO, T31B80T , EXPREC 


9041012, T31PK3S 
He spa 


3,731 
R4; TSOBCRS) 
PC; WAITF 
TSERCRS), R1 

R1 aCe: 

280% 

FATFLG 

ERRNO, T31ROF ,PKTSSR 


SEQ 0144 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
;WAIT FOR SSR_TO SET 
sGET TSSR CONTENTS 
T ¥ EXPECTED 


iSE 
FARE THEY EQUAL 
3;6R, IF OK 
ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
‘WORD 316 
“WORD T31WDC 
"WORD PKTSSR 
;LOOP IF SELECTED 
TRAP C$CLP1 
CALL TAPE REWIND COMMAND 
'8R, IF NO PROBLEM 
SAVE TSSR 
SERROR COUNT 
REWIND NOT ACCEPTED 
TRAP CSERHRD 
\WORD 317 
“WORD T31RUN 
“WORD C 
;}LOOP IF SELECTED 
TRAP CSCLP1 
PICK UP_XSTO 
SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
s REC'D 
i8R. IF EQUAL COK) 
OUNT 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
“WORD 318 
"WORD  T3180T 
"WORD c 
:LOOP IF SELECTED 
TRAP CSCLPl 
INITIALIZE. CVC=1 COMMAND 
{SET UP -R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ATT FOR SSR TO SET 
iGET TSSR CONTENTS 
}SET UP EXPECTED 
SARE THEY EQUAL 
i8R, IF OK 
,TSSR INLGRRECT AETER READ DATA 
TRAP CSERHRD 
.WORD 319 
“WORD ‘T31ROF 
"WORD -PKTSSR 


sLOOP IF SELECTED 


Cie 
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TEST 3: NO-OP TAPE") AND INITIALIZE 
042714 104406 
6174 042716 043150 
6175 042722 
000002 


833355333 st potas 


- 


oop 


CKL 
MOV 
MOV 
chp 
BEQ 


- 


T31BFR+6,R1 
£T1,R2 
1,R2 


285% 
FATFLG 
ERRNO, T31B0T ,EXPREC 


FATFLG,@15. 
999% 
PC ,.CKDROP 


PC, TSTLOOP 
63% 
31L00P 

TST 


TRAP 
sPICK UP _XSTO 
sSET UP CTED 
1SE1 BOT BI ac: EXPECTED 


EXP = 
iBR, IF EQUAL (OK) 
ERROR 
:TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 


sREAD A ACK,CVC=1 COMMAND 
1SE R4 WITH PACKET ADDRESS 
SFT UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

SET UP EXPECTED 


sARE THEY EQUAL 
sBR, IF OK 


ERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 
_WORD 
"WORD 
.WORD 


sLOOP IF SELECTED 
TRAP 


sGET DATA READ 

sREAD EXPECTED 

sDID TAPE STAY POSITIONED 
3BR, EXPD = RECD 


COUNT 
:TAPE POSITION NOT CORRECT AFTER INIT 
TRAP C$ERHRD 


-WORD 322 
-WORD T31WNH 
-WORD EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


: 
a CsESUB 
sIS ERROR COUNT AT 25 
sORe IF LESS THAN ae, 
sTRY TO DROP THE UNI 


SEQ 0145 





Die 
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TEST 3: NO-OP ("CLEAN TAPE“) AND INITIALIZE 


}LOCAL STORAGE FOR THIS TEST 
431 PACKET: ;COMMAND PACKET FOR TEST 

: 100004 ;WRITE CHARACTERISTICS COMMAND, WITH 
TSIDATA sADDRESS OF ACTERISTICS BLOCK 
10. :STARTING VALUE OF BLOCK SIZE 


T31DATA: sCHARACTERISTICS DATA BLOCK 
: T31BFR sADORESS OF MESSAGE BUFFER 


+ sLENGTH OF MESSAGE BUFFER 
T310SW: . ° sSELECT DRIVE 0 
T31BFR: .BLKW 25. sMESSAGE BUFFER 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
-*¢<,.°10>€177770 


T31PK2: 
0000s sWRITE SUB SYS MEM COMMAND, AND ACK 
gsiere 


sADORESS OF SELECT BLOCK DATA 
:SIZE OF DATA PACKET 


T31PK3: 
sREREAD COMMAND, AND ACK 
Lt ir # 


1WB: . sADDRESS OF WRITE BUFFER 


° te) 
T31SZ: . sSIZE OF BUFFER (EXTENT) 


T31S3: 
i 
3 


100205 
100605 


102205 
177777 
hy te) TIMER ER STORAGE AREA 
es te) ER STORAGE AREA 
TSIOLY: .WORD 0 DELAY COUNTER 


LOCAL TEXT MESSAGES FOR TEST 
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SEQ 0147 
TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


*TSSR Not Correct After READ 
hn et bf ba eee aire _—— INI TIMIZE Commend’ 
on 
‘1888 Incorrect After READ DATA Commond® 
Spece Reve Forwerd) Command Failed’ 
3 gor Correct’ 


ea 


HHH 


Bits Set’ 
B'S. Feiled To Set ILC Bit In XSTO’ 


Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE Commend,At BOT‘ 
it BOT After REWIND (BOT Not Set In XSTO)’ 
- Sol EAN TAPE”) AND INITIALIZE''S eon” Tepe Not Long Enough’ 

AD DATA OVER E GAVE NO TAPE STATUS ALERT’ 
° Not Correct After REREAD Re ject’ 
‘Rewind (POSITION) Command Not 

Error, Correct ae aettern Not In Rem' 
*TSSR Init. Feiled 


PES No Not forrec st ie elle Bhs fee io 1ssn" SUB Bit Set’ 
Reset VCK In oo Bure 


_ 


a HH 
NANNNNNANNNANG 


*TSSR Not Cor 


= 


Not p RAM Read)’ 
Feiled To Set RiL Bit In XSTO’ 
Feiled To xet ALS Bit xXSTO’ 
Incorrect yr pare 


Reding Lone Record Feiled to. Give Tepe Stetus Alert’ 
*NO-OP (“CLEAN TAPE”) AND INITIAL Ize, At First Record, Feiled To Set RIB Bit 


ei. Not Correct After SPACE veonns apy 
TSSR Not TAPE”) AND INITIALIZE, Into BOT’ 
‘TSSR Not “CLEAN TAPE“) at on INITIALIZE Commend’ 


Oete Error Dete R To Written’ 
Retz Re oe Ce leee teen) Ana INITERL TEE ; 


} ROUTINE TO RESTORE oe oan TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY 

’ 

ge 


T31REST: cone sins 

@TSIPACKET A START OF THEE. 

#100004 Ris ;WRITE SUBSYSTEM MEM. WITH ACK, 

or $ DATA, ( i)- sADORESS OF AISTICS DATA BLOCK 
sEXTENDED $s 

20 sft 1). sSIZE OF DATA BLOCK IN BYTES 

e Ti R,(R1)- sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 


= 





Fie 


TEST 1 - HARDWARE TEST 
TEST 3: NO-OP 


6343 


046612 


(“CLEAN TAPE”) AND INITIALIZE 
177777 043142 64%: 


012762 
005742 


022702 
001371 
000207 
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000000 


043240 


T3IRT2: 


R 
T31RT3: 


wr 48 tae » T31BFRCR2) 


sALL_ONES TO MESSAGE BUFFER 


sNEXT LOCATION 
ooP 


THE arst 
OF THE P 


sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sEXTENDED ADDRESS 
sSIZE OF DATA TRANSFER BLOCK 
RETURN 


sSAVE REGISTERS 
SET 


sWRITE uesvsTen MEM. WITH ACK, 
ADORESS OF DATA BLOCK 


UP POINTER ADDRESS 


-SBTTL TEST 4: Erese And Operetion Incomplete 


VERIFIES THAT AN ERASE 
POSITIONED AT 
THE FOLLOWING 


EST SE 


THE TAPE IS Bes 


WRITTEN, AND 


OF fre TEST RECO 


T_ OPERATE 


COMMAND ISSUED WHEN THE TAPE IS 
PROPERLY AND ACTUALLY ERASES TAPE. 
IS PERFORMED: 


L10050: 


TRAP 


SEVERAL jest RECORDS ARE 
APE IS APE Te REDON AGAL 


NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 


(BOT SHOULD BE 0). 


Lepr 


DATA Ts 
WAS 


Win tAbe STATUS ALERT 
iN starus MS Or ite. 


IN ive AREA ERASED 


ares tar wD NO D DATA 


7 alte 


CsETsT 


Conde TEED. WHICH SHOULD ERASE A NUMBER 


SEQ 0146 


Gle 
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TEST 4: Erase 


And Operation Incomplete 


006356 00217 
052570 ’ 
016620 


000005 002210 
051440 


051444 


SEQ 0149 


: 
THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
a 
; 
o 
, BGNTST . 
33 
MOV 71, EPRTSW PRIMARY 
MOV OTST SSID RO Ace TT MESSASE 10. IDENTIFY TEST 
JSR PC, TSTSETUP 100 INITIAL TEST SE 
MOV 05. LOOPCNT }PERFORM 5 ITERAT 
CLR T32CNT CLEAR TAPE RECORD OS unT 
t¢ 
TEST 4, SUBTEST 1 
’ 
VERIFIES THAT A Erase And Gperation inoommiete te COMMAND ISSUED WHILE 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
s TERMI TION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
3 ° 
b 
3 
ge 
T32L00P 
: 
3 
P BGNSUB g>>>>>>>>>>>> er Sew >>>>>>>>>>>> 
““F TRAP —s C4BSLB 
JSR PC. TS2REST sSET C ACKET 
JSR ;T3ORT2 sSET UP OTHER COMMAND PACKET 
JSR PC. T3ORTS 3SET UP OTHER COMMAND PACKET 
MOV €65000. , T32DL sSET UP DELAY COUNTER 
108: JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
BCS 20% :6R IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SEC 
MOV $250,(PC)- 
.WORD 0 
Mov LSOLY,(PC)- 
. WORD 
bEC ~6¢PC) 
BNE 
DEC *29(PC) 
BNE .-20 
DEC BUMP COUNT 
BNE i iR, I COUNTER NOT DONE 
_ INC ERROR COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG :FATAL ERROR TSSR WAS NOT OK OK ae 
WORD 401 
SFIERR 


Hie 
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TEST 4: Erase 


6451 047074 
6452 047076 
6456 047102 
6457 


6469 
“ty 


And Operation Incomplete 


002174 051300 20%: 
051260 
010742 
002214 


oop 


CKL 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
chp 
BEQ 


ir 


Ce 


pecan 


7 


UNITN, T320SW 
eTS2PACKET, R4 
PC,WRTCHR 

Bins 

ERRNO, WRTMSG, SFIMSG 


ash 
TSSRCRS), aL 
FATFLG 
ERRNO, TS2RWN,PKTSSR 


ERRNO, TS2WDC ,PKTSSR 


(R3)- 
R3, 0514. 
27% 
PC, REWIND 


30 
TSSRCRS),R1 
RO,R4 


FATFLG 
ERRNO, TS2RWN,PKTSSR 


-WORD SFIMSG 


sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET 

s ISSUE WRITE CHARACTERISTICS 
sBR, IF C S. OK 


c 
SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 


° "yoRo 

- WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


sCALL_TAPE REWIND COMMAND 
IF NO PROBL 


3BR EM 
;SET UP REWIND PACKET ADDRESS 
GET TSSR CONTENTS 


sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 


sLOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
iSTARTING WRITE BUFFER ADDRESS 
TG os tn & ACK_COMMAND 


UP R4 ADDRESS 
136 UP RECORD SIZE IN PACKET 
iWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 


TARE THEY EQUAL 
36R, IF OK 


COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
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TEST 4: Erese And Operation Incomplete 
. WORD 


TRAP 


30$: sLOOP IF SELECTED 
sPICK UWP XSTO 
sSET UP EXPECTED 
SET BOT i EXPECTED 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 


s;ERROR 
sTAPE AT BOT AFTER ERASE 
TRAP 


. WORD 
;LOOP IF SELECTED : 
TRAP 


sERASE TAPE CvCa3 ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
COMMAND 


3335888 3 


m 


ERROR COUNT 
ERRNO, T32ERA,PKTSSR :TSSR INCORRECT AFTER ERASE DATA 


"WORD 
WORD 
;LOOP IF SELECTED 
T32BFR-6,R1 ;PICK UP XSTO 
R1,R2 SET WP 
e6iTi.R2 
R1,R2 


$ 
ATFLG 


TISSUE COMMAND 

iMATT FOR SSR_TO seT 

Tey UP EXBCCTED TAPE STATUS ALERT 
THEY EQUAL 


ERROR COUNT 
ERRNO, TS2TSA,PKTSSR :TSSR INCORRECT AFTER READ DATA 


bina 3 





Jle 
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And Operetion Incomplete 


CMP 
BLO 
JSR 
999%: 
:° 


sLOOP IF SELECTED 
T32BFR-14,R1 sGET XST3 STATUS WORD 
R1,R2 EXPECTED 


e8iTO,R2 

R1,R2 

190% 

FATFLG 

ERRNO, TS2R1B ,. EXPREC 


BR, IF EQUAL (GOOD 
30k, 

3 COUNT 
sRIB SHOULD BE SET c 
410 
T32QRIB8 
EXPREC 
3>>>>>>>>>>>> END SUBTEST >> >>>>>>>>>> 

L10054: 


CsESUB 


TRAP 

. WORD 
- WORD 
. WORD 


FATFLG,@15. sI1S ERROR COUNT He 
999% s@n IF LESS THAN 
PC .CKDROP TRY TO DROP THE UNIT 


; 
sTEST 4, SUBTEST 2 


VERIFIES THAT AN ERASE 
POSITIONED AT BOT OPERATE 
PREVIOUS TAPE RECORDS. 


a. 


CUTED WHEN THE TAPE IS NOT 
AND pore NOT CORRUPT 
THE TEST SEQUENCE I 


THE TAPE IS FIRST REWOUND, SEVERAL Test RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN 


COMMAND EXE 
S PROPERLY 


A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
nn | OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 


AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 

OF THE TEST RECORDS. 

NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

REVERSE COMMAND IS Mg It IS VERIFIED THAT 
no Tat Te DATA 


SPONDS fo THAT FO FOR “te EXPECTED 
NO DATA WAS eS 
COMMAND 


ERED 
» AND T THE 
IOUS RECORD WAS NOT CORRUPTED. 





Kile 
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And Operation Incomplete 
g>>>>>>>>>>>> ae >>> >>>>>>>>> 
: Csesus 


ESARAS 


D0 INITIALIZE ON CONTROLLER 
OR IF INIT WAS OK 

ERROR COUNT 
;CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT 


a3 


SET UP _UNIT NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
sBR, COMMAND ISSUED OK 


}SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED cae 

sCALL TAPE REWIND COMMAND 

3;6R, IF NO PROBLEM 

; UP REWIND PACKET ADDRESS 
3 COUNT 

sREWIND NOT ACCEPTED 


BGNSUB 
JSR 
JSR 
JSR 
JSR 
BCS 
INC 
MOV 
ERROF 
MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 
CKLOOP 
JSR 
cs 
MOV 
INC 


sLOOP IF SELECTED 


sPICK WP XSTO 
SET UP EXPECTED 


sLOOP IF SELECTED 


STARTING ae SIZE 
+SET HF MEMORY FILL 
sCALL MEMORY FILLER 





Lie 
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And Operation Incomplete 
003120 051402 
140005 051400 65%: 
051400 


017532 
1406 


sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC-1 COMMAND 
R4 WITH P. 


000000 
016360 
000002 
000200 


8  ihabiabiteie 


bit Fo 


+ 


sLOOP IF SELECTED 


SET UP EXPECTED 
sSET BOT 


CKL 
MOV 
MOV 
ers 


:tape not at Bd 


( F 


B33S558558 2 





Mie 
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TEST 4: Erese And Operation Incomlete 


002214 FATFLG ERROR COUNT 
ERRNO, TS2ERA,PKTSSR sTSSR INCORRECT AFTER a | 


si 

sWAIT FOR SSR TO SET 

3sGET T ENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
EQUAL 


sARE THEY 
sBR, 


ERROR COUNT 
ERRNO, T32TSA,PKTSSR :TSSR INCORRECT AFTER READ DATA 


8333558393 2 


z 


sLOOP IF SELECTED 
@FREE ,R1 sGET DATA READ 
#100. ,R2 sSHOULD BE 100 
sCHECK‘EM OUT 
sBR, IF OK 
FATFLG ERROR COUNT 
ERRNO, TS2ECF ,EXPREC sERASE COMMAND DION’ T aa 
-WORD 420 
«WORD TS32ECF 
-WORD EXPREC 
TRAP CSsCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10055 


: Csesue 


sLOOP IF SELECTED 


FATFLG, #15. 
999% 
PC ,.CKDROP 


CMP 
BLO 
JSR 


999%: 
id 


‘ 
sTEST 4, SUBTEST 3 


VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER 
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS AL 
TERMINATION WITH THE EOT STATUS BIT SET. VER 

OTHER TAPE MOTION C S EXECUTED WHEN THE TAPE 

RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 





Nie 
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TEST 4: Erase And Operation Incomplete 


THE TAPE IS REWOUND. 


ATEDLY I IL EOT STATUS 

Is T5 SEEN.) AN ERROR Te Reporte ae tage TERMINATION OTHER 
WITH E0T=0) OR TAPE STATUS ALERT (WITH 

egr=1) Is Mote ENCOUNTERED, IF THE CONTROLLER OR TRANSPORT 

DOES NOT DETECT THE EOT THE TRANSPORT WILL FAULT. 

iets 1s REPORTED AS A FATAL ERROR AND THE TEST IS 


AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
Wena cee sat TAPE STATUS ALERT TERMINATION RESULTS, 


IT IS VERIFIED THAT EACH OF THE FOLLOWING C 
CISSUED IN THE ORDER GIVEN 


C$BSUB 


IF 
{DELAY ABOUT .25 SEC 
#250, (PC)- 


LSDLY,CPC)+ 
fe) 


DEC 


eres Tse oh 


‘a 
TERR 


UP UNIT (DRIVE) NUMBER 


ond teste Polke? Mone 
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TEST 4: Erase And Operation Incomplete 
010742 

002214 


23%: 


30$: 


403%: 
051400 654: 


80$: 
051310 
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8 


Raeeesgesss 


FS t=] 
Ft 


38 
8 


PC, WRTCHR 
23% 

FATELG 

ERRNO, WRTMSG, SFIMSG 


PC ,REWIND 
hE | RS),R1 
RO,R 


FATELG 
ERRNO, T32RWN,PKTSSR 


T32BFR-6,R1 
R1,R2 
8iT1,R2 
R1,R2 


40 
FATFLG 
ERRNO , TS2B0T , EXPREC 


Hi meade & os 
ST32PKS3 ,R4 


TSERCRS), Ri 

@5SR,R2 

RL R2 

$B1T2,R1 

80$ 

FATFLG 

ERRNO, T32WOC,PKTSSR 


T326FR+6,R1 
R1,R2 


sISSUE WRITE CHARACTERISTICS 
sBR, IF ee ISSUED OK 
: 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sCALL_TAPE REWIND COMMAND 
sERROR COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
sPICK UP XSTO 
3SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
iBR, IF EQUAL COK) 
gERROR 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 
~ WORD 
> WORD 
"WORD 
;LOOP IF SELECTED 
TRAP 
sERASE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
3SET UP RECORD SIZE IN PACKET 
I OMMAND 


s ISSUE 
sWAIT FOR SSR TO SET 
sGET TSSR 


TRAP 


IF OK 
sCHECK FOR TAPE STATUS ALERT 
:BR, IF TAPE STATUS ALERT SET 


SEQ 0157 


PKTSSR 
CSCLP1i 


ERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 


sLOOP IF SELECTED 


sPICK UP_XSTO 
sSET UP EXPECTED 


TRAP 
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TEST 4: Erese And Operation Incomplete 
000001 


002214 


051406 


051316 
000100 


002214 


270%: 


2604: 


Bai 


, 


g 


B33S95998555883 2 


QP 
~< 


Ban 


@BITO,R2 
R1,R2 


$ 
ATFLG 
ERRNO, TS2E0T , EXPREC 


T320LY 

270% 

FATFLG 

ERRNO, TS2ECF ,PKTSSR 


T32BFR+14,R1 
R1,R2 
#8176,R2 
R1,R2 


$ 
FATFLG 
ERRNO, TS20PI , EXPREC 


SEQ 0158 
1SET €OT BIT, IN, EXPECTED 
XP = REC'D 

iBR, IF EQUAL (OK) 

;TAPE NOT AT EOT AFTER ERASE COMMANDS 
TRAP C$ERHRD 
‘WORD 426 
"WORD  T32E0T 
“WORD EXPREC 

;LOGP IF SELECTED 
TRAP C$CLP1 

;STARTING RECORD SIZE 

iSTARTING READ BUFFER ADDRESS 

;READ DATA COMMAND 

SET UP R4 WITH PACKET ADORESS 

SET PATTERN IN CORRECT. REGISTER 

IFILL MEMORY WITH ALL ONES 

}SET UP RECORD SIZE IN PACKET 

3 COMMAND 

}SET UP DELAY COUNTER 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

SARE THEY EQUAL 

:BR, IF OK 

;DELAY FOR SSR TO BE SET 
Mov 0250, (PC)- 
_ WORD 
Mov L$DLY,(PC)- 
. WORD 
bEC ~6(PC) 
BNE 
DEC =29(PC) 
BNE “<0 

}COUNT DELAY ROUTINE DOWN 

ERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 427 
"WORD PRTSSR 
d SSR 

;LOOP IF SELECTED 
TRAP —- C$CLP1 

PICK UP XST3 

SET UP EXPECTED 

SET OPI BIT IN EXPECTED 

iTS opr eI! 

36R, IF BIT I 

3 

;0PI BIT NOT SET 
TRAP — CSERHRD 
WORD 428 
"WORD  TS20PT 
“WORD  EXPREC 

;LOOP IF SELECTED 
TRAP C$CLP1 
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TEST 4: Erase And Operation Incomplete 


Qe1387 177777 Ge fr 
001300 


33° sBUMP COMMAND POINT 
zune sAT a OF TABLE ver 


26 BR, KEEP TRYING C 
> >>>>>>>>>>> ne Suerest >>>>>>>>>>>> 


002214 000017 CMP oon we #15. 
017312 JSR PC ,CKDROP 


JSR PC, TSTLOOP 
BCC 163$ 


UMP T32L00P IN 
EXIT TST DONE THIS TEST 
TRAP C$EXIT 
.WORD 110053-. 
LOCAL STORAGE FOR THIS TEST 
P -*¢<.°10>€177770 
T32PACKET : sCOMMAND PACKET FOR TEST 
f 100004 }WRITE CHARACTERISTICS COMMAND, WITH , ACK 
TS2DATA sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


T320SW: .WORD sSELECT DRIVE O 
T32BFR: . ° sMESSAGE BUFFER 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
. -*¢<,°10>€177770 


T32PK2: 
pecees sWRITE SUB SYS MEM C AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


3555 333 


sREREAD COMMAND, AND ACK 
sADDORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 





E15 
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TEST 4: Erese And Operation Incomlete 


; TAPE motion PACKET COMMAND VALUES 

T32CMO: 

sSPACE RECORDS REVERSE 
sSKIP TAPE MARKS REVERSE 
sREAD REVERSE 

}REREAD PREVIOUS, CopP=0) 


S55535555553 


sTAPE TIMER COUNTER STORAGE AREA 
s TAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


LOCAL TEXT MESSAGES FOR TEST 
ge 


T32B0T: . "Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 
‘Tape Stetus Ale ot During Erase To EOT, But EOT Not Set’ 
‘Rewind (POSITION) 


TEER Init, Failed After REREAD 
’ n ei 4 
Not Correct A Commend’ 


DATA Connene’ 
eiled To Set RIB In XST3' 
RECORDS ' 
AD REVERSE Into BOT’ 
rt ga Ergee From Tape''s BOT Merker' 
ml Erese) pases Sees rly’ 
or ore dT Proper] 


xST3) sFeites” To Set A ccm: 
And Operation Incomplete’ 


000000 
000000 
000000 
124 
124 
122 
124 
124 
124 
122 
124 
+<> 
108 
124 


or 
85 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 

3 

t- 


T32REST: 


TEM MEM. WITH ACK, 
soe OF CHARAISTICS DATA BLOCK 
ETE OF DATA BLOCK IN BYTES 
sADORESS OF MESSAGE BUFFER 


eeeeaeee 


(R1)- 
#20. ,(R1)- sLENGTH OF MESSAGE BUFFER 
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TEST 4: Erese And Operation Incomplete 


052670 CLR (R1)- 
% ons7Oe s+? Naar 2 EROER OF LOC TO BE CLEARED 
OiSres 997977 (051302 64s: poy 9977479, TS2BFR(R2) ALL ONES T BUFFER 
7006 052710 005742 TST -(R2) NEXT T 
700 712 022702 000000 CHP UAT END 
7008 052716 001371 BNE t ;KEEP GOING UNTIL DONE 
. RTS }RETURN 
7010 
7011 052722 T32RT2: 
Fors oss7se mover’ 13 
701 756 012701 051370 MOV @T32PK2,R1 isT ACKET 
7018 032732 012721 100006 MOV @100006.(R1)- SWRITE SUBSYSTEM MEM. UITH ACK, 
7015 oasost CLR Ri )e ADDRESS OF DATA BLOCK 
7016 052740 CLR R1)- ; ADDRESS 
7017 052742 012721 000006 66. ,(R1)- SIZE OF DATA BLOCK IN BYTES 
7018 032746 905021 CLR (Ride 
7019 052750 00020 RIS ss ; RETURN 
7020 052752 T32RT3: 
7021 052752 SAVREG ;SAVE REGISTERS 
052756 012701 051400 OV @T32PK3,R1 SET UP POINTER ADDRESS 
7023 052762 t CLR (Rl )- }COMMAND SPACE 
052764 005021 R CRI )- ;ADORESS OF DATA BLOCK 
7025 052766 005021 R Rl)- EXTENDED ADORESS 
952770 005011 Q (R1) ‘SIZE OF DATA TRANSFER BLOCK 
7027 052772 00020 RTS PC ;RETURN 
052774 ENDTST 
052774 


-SBTTL TEST S: DATA PARITY TEST 


TEST 5 -- Dete Perity Test 


Perity control flip-flop. 


forci 
vesuite” 


1. A Write Cherecteristice commend is i 
stetes 


next 
Control field in the extended cher 


i 
p23's233-. 

g 

Z 


TRAP 


chenge the logicel sense of the Extended Features switch. ) 
2. The Write Memory commend is used to set the 


per ity 
reed. 


CSETST 


3 
sThis test verifies thet the dete ity circuitry in both the controller and the 

i i by dete records with wrong 
obteined when the dete is 


to _be 


SEQ 0161 
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SEQ 0162 
TEST S: DATA PARITY TEST 
ar U4 : 3. The tape is rewound. 
: 
7059 ’ 4. A Write Date command is issued to write e dete record containing ell 
7060 ’ O's. It is_ verified that this command results in Recoverable Error 
7061 : termination (TC=4) and thet the Uncorrecteble Dete Error (UNC) error 
Lae | ’ bit is set. 
: 
7064 3 S. The previous step is repeated for each dete velue 2 through 377 
7065 ; Coctel). 
7066 3 
ba 5 34 3 The tape is rewound. 
7069 ’ 7. A Reed Next command is issued to read e record with faulty perity. It 
7070 ’ is verified thet this command results in reble Error termination 
7071 ’ (TC=4) and thet both the Uncorrecteble Dete (UNC) end Read Bus Perity 
7072 : C _ error bits ere set. It is also verified that the dete ectuelly 
Ors ’ reed is correct. 
: 
7075 ’ 8. A Read Reverse command with OPP=1 is issued to read, in reverse, the 
7076 ; seme record with feulty perity es read in the previous step. It is 
7077 ’ verified thet this results in Recoverable Error termination 
7078 ’ (TC=4) end thet both the Uncorrectable Dete (UNC) and Reed Bus Parity 
7079 : (RBP) error bits ere set. It is also verified that the dete sectuelly 
wont ’ read is correct. 
’ 
708s $ 9. Tepe is spaced forward one record. 
083 : 
ba 3 2 : 10. wey Srevious three steps ere executed for each test record originally 
> wri . 
7086S ’ 
7087 ’ 11. The controller is initialized to clear the special test conditions 
7088 3 previously set up. 
7089 ; 
7090 ‘ 
7091 : 
7092 ‘- 
7093 052776 BGNTST 
052776 TS:: 
7094 052776 012737 006415 002172 MOV GEPRT2, EPRTSW sSECONDARY ERROR MESSAGE 
7099 012700 055575 MOV @TST3310,RO sASCII MESSAGE TO IDENTIFY TEST 
7100 053010 004737 016620 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
7101 05 012737 000005 002210 MOV #5, LOOPCNT sPERFORM 5S ITERATIONS 
7108 os 005037 054646 CLR T3SCNT sCLEAR TAPE RECORD COUNTER 
t¢ 
7104 ‘ 
7105 053026 33LO0P ; 
7106 geese $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
. : 
pets 54 104402 TRAP C#BSUB8 
7107 0530 005037 002216 CLR INTRECV sINTERRUPT INDICATOR 
7108 053034 005037 CLR T33CNT sTIMER FOR WRITE DATA SPACING 
7109 053040 005037 0546 CLR T33CNU sTIMER FOR WRITE DATA RETRY SPACING 
7110 053044 004737 055612 JSR Oe TSentS. sSET COMMAND PACKET 
7111 053050 004737 055704 JSR eT33RT2 sSET UP OTHER COMMAND PACKET 
os 737 055746 JSR PC, T33RTS sSET UP OTHER COMMAND PACKET 
7113 053060 012737 176750 054652 MOV #65000. , sSET_UP_DELAY COUNTER 
7114 053066 737 016104 10%: JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 


H1i3 
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SEQ 0163 
TEST S: DATA PARITY TEST 
7115 053072 103426 BCS 20$ :BR IF INIT WAS OK 
7116 053074 DELAY 250 ;DELAY ABOUT .25 SEC 
053074 012727 000250 MOV $250,(PC)- 
053100 000000 . WORD 
053102 013727 002116 HOV LSOLY,(PC)- 
3106 000000 .WORD 0 
053110 005367 177772 bEC ~6¢PC) 
053114 001375 BNE 
053116 005367 177756 DEC "39(PC) 
053122 001367 BNE .-20 
7117 053124 005337 054652 DEC T33DLY + BUMP COUNTER 
7118 053130 001 BNE 10% :BR, IF COUNTER NOT DONE 
7119 053132 005237 002214 INC FATFLG ERROR C 
7123 053136 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
7124 053140 ERROF ERRNO, SFIERR,SFIMSG :FATAL ERROR TSSR WAS NOT OK 
053140 104455 $€ROF 
053142 000765 i‘ 1 
053144 003650 "WORD SFIERR 
053146 012144 “WORD  SFIMSG 
7125 053150 013737 002174 054520 20%: MOV UNITN, T330SW ;SET UP UNIT NUMBER 
7127 053156 012704 054500 MOV OT33PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
7128 053162 004737 010742 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 
0531 103407 BCS 233 BR, COPFAND ISSUED OK 
7130 053170 005237 002214 INC FATFLG 
7134 053174 010001 MOV Ri :SAVE CONTENTS OF TSSR 
7135 053176 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
053176 104456 $ERHRD 
000766 "GORD 
053202 "WORD  URTMSG 
053204 012144 “WORD SFIMSG 
7136 053206 23%: CKLOOP ;LOOP IF SELECTED 
053206 1 TRAP = C$CLP1 
7137 053210 004737 011126 JSR PC REWIND sCALL TAPE REWIND COMMAND 
7138 053214 103411 BCS 30% ;6R, IF NO PROBLEM 
7139 053216 016501 000002 MOV TSSR(RS),R1 sGETt TSSR CONTENTS 
7140 053222 010004 MOV RO,R4 3GET P ADU2ESS 
i 053224 005237 002214 INC FATFLG ; OUNT 
7145 053230 ERRHRD ERRNO, TSSRWN,PKTSSR ;REWIND NOT ACCEPTED 
053230 104456 TRAP §C#ERHRD 
053232 000767 . WORD 3 
053234 055 "WORD T33RUN 
053236 012156 "WORD PKTSSR 
7146 053240 308: CKLOOP ;LOOP IF SELECTED 
053240 1 TRAP —s-_- CSCLP1 
7147 053242 013701 054530 MOV T33BFR-6,R1 PICK UP XSTO 
05 010102 MOV 1,R2 sSET UP EXPECTED 
7149 053250 Oastos 000002 BIS e6iTi.R2 3SET BOT BIT IN EXPECTED 
020102 CMP 1,R2 ;D0ES EXP = REC'D 
7133 053256 901406 a BE ae s8R, IF EQUAL (OK) 
7156 Ossses _— 7 ERaHRD ERRNO, T33B0T , EXPREC ; TAPE nota 7 Sof AFTER REWIND 
05 104456 TRAP § CSERHRD 
O33590 O55 ‘Hond  TSse0T 
053272 015604 [WORD EXPREC 
7157 053274 40$: CKLOOP ;LOOP IF SELECTED 
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002220 42%: 


000200 054631 
000010 054630 
054610 
000000 


~ 
w 
~ 


TRAP gene 
FOR EXTENDED FEATURES SW CH 
OUS CONT/READ STATUS 
sFUNC. BIT (TURN ON EXTFEA SWITCH) 
{WRITE SUBSYS MEM PACKET 
1TSSUE COMPAND 
1 na Eon 
b 
;ERROR, SAVE AVE ISSR 
wot comme’ 
:TSSR CORRECT AFTER WRT. MISCELLANEOUS 
$ERHRD 


EEE 


r 


T33SSR 
PKTSSR 

sLOOP IF SELECTED 

;CHECK FOR BUFFER ENABLED 

;6R, IF BUFFERING NOT ENABLED 

;SET UP UNIT NUMBER 


iBUFFER DISABLE 
eEnsuT eg ®, 350 o TO BITS 4 AND 5 
ADORE SS 


is tht SEMEACT Istics 


RO,R1 + SAVE CONTENTS ors TSSR 
ERRNO , WRTMSG , SF IMSG WRITE CHARACTERISTISC FAILED 


goene 
URTMSG 
SF IMSG 
CscL Pi 

onee, tesest FUN rascals cnaens soe in Re 

states Re sat E suBéys- 

R4, TSDBCRS) 

CHKTSSR iss Fon som SSR 


iEMhOn, SAVE TSSR 


:1sSR wot CORRECT AFTER wer ee 


sLOGOP IF SELECTED 
TO 


sLOOP IF SELECTED 


MOV 
ERRHRD 
CK. OOP 
MOVE 
MOVE 
MOV 
MOV 
fe 
INC 
ERRHRD 
CK. OOP 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 


sSET UWP RECORD SIZE IN 
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TEST S: DATA PARITY TEST 
054650 127342 
054650 


000000 
016360 
000002 
100210 


002214 


peverenKe 


TS3BFR-10,R1 
R1,R2 
e8iT1,.R2 
R1,R2 


130% 
FATFLG 
ERRNO, TSSUNC .EXPREC 


R3 
110% 


1468 

SSRCRS),.R1 

RO, R4 

FATFLG 
ERRNO , T33RUN,PKTSSR 


T33BFR-6,R1 
Ri 

e6iT1.R2 
R1,R2 


$ 
PATLG 
ERRNO , T33B0T , EXPREC 


ERROR COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP 

T33WPu 

PKTSSR 


sLOOP IF SELECTED 
csc. P1 


sPICK UWP XST1 
SET EXPEC 


ERROR 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
_WORO 
“WORD 
"WORD 
;LOOP IF SELECTED 


sLOOP IF SELECTED 
sPICK WP XSTO 


sLOOP IF SELECTED 
sCLEAR DATA VALUE IN RECORD 


CSERHRD 
$06 


SEQ 0165 





K13 
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TEST S: DATA PARITY TEST 
012703 


003120 054622 155% 
40001 054620 : 


PEEP EEEEEE 


aa 


ERROR COUNT 
ERRNO, TSSWOC , PKTSSR sTSSR INCORRECT AFTER Se 


te 
{soc 


CscLP 1 


sLOOP IF SELECTED 
T33BFR-10,R1 sP uP XST 
RieRe SET UP EXPECTED 

iSET UNC BIT IN EXPECTED 

sD0ES EXP = REC'D 

:8R, IF EQUAL (OK) 

sERROR COUNT 
sUNC BIT "NOT SET AFTER READ CMD. 
TRAP 
sLOOP IF SELECTED 
eee UP XST 
UP _ EXPECTED 

:SET ReP BIT IN EXPECTED 

sDOES EXP = REC’ 

sBR, IF EQUAL (OK) 


sREAD BUL PARITY ERROR BIT NOT SET 
“ina c 


sLOOP IF SELECTED 

:GET DATA READ 
3;GET PATTERN 

sARE THEY EQUAL 

3;6R, IF OK 


F ERROR 
ERRNO. TSSDTA, EXPREC yDATA Not CORREET 


sLOOP IF SELECTED 





L135 
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003120 054622 
140401 054620 195%: 
054620 


000024 054626 
000000 
016360 
000002 
100210 


SEQ 0167 


STARTING WRITE BUFFER ADDRESS 
READ REVERSE DATA RETRY.ACK COMMAND 


poeeeereas 


002214 


sLOOP IF SELECTED 
sPICK WP XST1 
SET T 


re 
re 


S9088 
eres 


sLOOP IF SELECTED 
T33BFR-10,R1 ICK UP XSTO 
R1,R2 sSET UP EXPECTED 
e8iTs.R2 , REP BIT IN EXPECTED 
R1,R2 sD0ES ® REC'D 
2168 :8R, IF EQUAL (OK) 
ATFLG ERROR 
sREAD BUS PARITY ERROR BIT NOT SET 


‘ee 


3: 


SESE ERRESSS 


7332 
7333 
7334 
7335 
7337 
7338 
7342 


SPT TTTTTTS 


aH 
SIPIRE 
Sovey 


Bara 
: 
ee 


ERRNO, TSSOTA,EXPREC 


é 
2998 
#3 


sLOOP IF SELECTED 
sSAVE RS FOR A MOMENT 





M13 
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7355 054410 
7356 054414 
7357 054420 


012703 
004737 


000001 
010546 


054650 


FATFLG,@15. 
999% 
PC. CKDROP 


PC, TSTLOOP 
230% 


BCC 
T33L00P 
230%: EXIT TST 


}LOCAL STORAGE FOR THIS TEST 


al . =<, ©10>€177770 
T33PACKET : 


T33DATA: | 


T330SU: ; 
T33BFR: . 
WRITE SUBSYSTEM MEMORY COMMAND PACKET 


‘ 
-*¢.*°10>€177770 
T33PK2: 
338F 2 
0 
6. 
100005 


FREE 
ce) 
0 


s SPACE _— ONE RECORD 


OONE 
s6R, IF NOT DONE YET 


3<<<0¢¢¢¢¢0<00"4 END SUBTEST >>>>>>>>>> >> 


CsESuUB 


RY 10 DROP THe UAT 


sCOMMAND PACKET FOR TEST 


T 


RAP CsExIT 
WORD 110057-. 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADORESS OF TERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
s ADDRESS BUFFER 


OF MESSAGE 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM C 
sADORESS OF SELECT BLOCK 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


tg Se ACK 
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SEQ 0169 
TEST S: DATA PARITY TEST 


WORD sSEL 2 AREA 
T33S3: .WORD sDATA AREA 
8 
8 


.EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


100205 sREREAD DATA (NEXT) 
100605 sREREAD DATA RETRY 
102205 i}WRITE Cer pens 

177777 sEND OF DATA 


iu 


te) sTAPE TIMER COUNTER STORAGE AREA 
te) sTAPE TIMER COUNTER STORAGE AREA 
te) sDELAY COUNTER 


{LOCAL TEXT MESSAGES FOR TEST 


‘Read Bus a git _ ee Set 
‘TSSR I 


(BOT Not Set In XSTO)’ 


ION) | rhe 
Not Correct After READ Wrong Perity Command’ 
E Dete Read From Tape Not Equal To Written’ 


77777 
000000 
000000 
000000 

122 
124 
125 
125 
127 
124 
122 
124 
104 
104 


° Per ty’ 


}ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 

3 

| ad 


T33REST: ae : 
STSSPACKET A TSAAT OF THE PACKET 
#100008 SWRITE SUBSYSTEM MEM. WITH ACK, 

es i silt i. ADORE TICS DATA BLOCK 


EXT SS 

210 cna, iSIZE OF DATA BLOCK IN BYTES 
orss6rR R1)- sADORESS OF MESSAGE BUFFER 
»(R1)- sLENGTH OF MESSAGE BUFFER 


ee IMURGER OF LOCATIONS TO BE CLEARED 


=, 





14 
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TEST S: DATA PARITY TEST 


747, 
747 


055664 


aed 055702 
7478 055704 
04 


012762 
005742 
022702 
001371 
000207 


012701 


012701 
005021 
005021 
005021 
005011 
000207 


104401 


177777 054522 644: 


002172 


002210 


SEQ 0170 


sALL_ONES 19 MESSAGE BUFFER 
sNEXT LOCATION 

AT END OF LOOP YET 
;KEEP GOING UNTIL DONE 
sRETURN 


+o} THE eretsrens 
sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
eae OF DATA BLOCK 


sEXT Ss 
}SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 

sSAVE REGISTERS 
sSET UP POINTER ADDRESS 
1 COMMAND SP 

1 ADDRESS OF DATA BLOCK 


sEXT 
iSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10057: 


TRAP CsETST 


MOV 0177777, T33BFRCR2) 
TST -(R2) 
#0 ,R2 
BNE 643 
RTS PC 
T33RT2: 
SAVREG 
MOV $T33PK2,R1 
MOV #100006. (R1)- 
MOV $T33BF2,(R1)- 
CLR CR1D- 
MOV . CR1)> 
CLR criss 
MOV $T338F2,R1 
CLR Rl)- 
CLR (R1) 
RTS 
T33RT3: 
SAVREG 
MOV $T33PK3,R1 
CLR (R1)- 
CLR (R1)- 
CLR C(R1)-« 
CLR (R1) 
RTS PC 
ENDTST 
.SBTTL TEST 6: OPERATIONS AT EOT 


;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 


sCOMMAND (SPACE REVERSE 
3 


» ERASE, WRITE DATA) 


}THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


BGNTST 
MOV S€PRT1,EPRTSW 
MOV eTST 3410, RO 

JSR PC, TST Tee tur 
MOV #5. LOOPCNT 


CLR T34CNT 
? * 


;TEST 6, SUBTEST 1 


TAPE MOTI 
IS PERFORMED: 


metal 
SSAGE TO ah TEST 


;CLEAR TAPE RECORD COUNTER 


THIS wit venir ies THAT THE EOT STATUS IS HANDLED PROPERLY BY 
THE VARIOUS ON COMMANDS. 


THE FOLLOWING TEST SEQUENCE 
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TEST 6: OPERATIONS AT EOT 


THE TAPE IS REWOUND. 
WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
E . ERRORS 


ERRORS AL REPORT. RECORDS WITH ya 
ERRORS RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA 


ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A WRITE TAPE MARK COMMAND IS ISSUED IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION éccurs. WITH EOT=1. 


A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 


ACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT=1 AND TMK=1. 


A SPACE RECORDS REVERSE COMMAND,  MITH A RECORD COUNT OF 
ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
décuRs: WITH EOT=1. 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
bécuRs WITH EOT=1. 


A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


- B Rene Fommno Crsme® 15 ISHED, AND IT IS CHECKED 


T NORMAL TERMINATION OCCURS, WITH EOT=1. 
A SPACE RECORDS REVERSE COMMAND, wot" A RECORD COUNT OF 


7 a ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 


» WITH EOT=0. 


- A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 


3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
O€CURS, WITH EOT=1. 


- A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, 


WHICH 
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0, 
BOT=1, AND RIB=1. 


SEQ 0171 
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TEST 6: OPERATIONS AT EOT 


SEQ 0172 


:TEST 6, SUBTEST 1 
iVERIFIES THAT WRITING OVER THE END-OF TAPE (EOT) 


>>>>>>>>>>>> as? SUBTEST >>>>>>>>>>>> 
6.1: 


“ TRAP CSBSUB 
(RESTORE PACKET. 


sSET UP OTHER COMMAND PACKET 

3SET UP COUNT 

:00 INITIALIZE ON CONTROLLER 

3BR IF INIT WAS OK 

;DELAY Y A WHILE 
9250, (PC )< 
LSOLY,(PC)- 


TSSR(RS),R1 GET TSR. STATUS 
@55R,Ri 

T340LY 

108 

Ro Rie CONTENT 

ERRNO, SFIERR , SFIMSG TFATAL 


UNI TN, T340SW sSET UP DRIVE NUMBER 
oT SaPACKET Re | SUBROUTINE NEEDS. PACKET ADORESS 


* 060470 
7631 056164 PC, WRTCHR sISSUE WRITE CHARACTERISTICS 





E14 
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TEST 6: OPERATIONS AT EOT 


7632 056170 Bcs 30% sBR, IF COMMAND ISSUED OK 
FATFLG 


sERROR 
ERAND, URTMSG, SFIMSG 1 OAITE CHARACTERISTI SC FAILED 


. WORD 

. WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


BR BR, ie {58H 1S OK (6000) 


sSET wer PACKET 
sERROR COUNT 
sTSSR IS "INCORRECT re ee 


sLOOP IF SELECTED 
CvC= 


+ TE DATA, ACK 
MAX NUMBER OF UR 
ISET UP WRITE BUFFER ADORESS 
sSET UP BUFFER SIZE (4K BYTES) 
POINTER TO PACKET 


CKLOOP 
MOV 
MOV 
INC 
ERRHRD 
CKLOOP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BNE 
DEC 
BNE 
INC 
ERROF 


o 
H 
4 


ee tate FOR TAPE STATUS AL 


eeety ON IN EXPECTED 


188, IF OT AS FOUND 
:LO0P 


aE bd | 


TRAP csc P1 


WRITE OATA *1 

burren st aboness 
Bt Ae BYTES) 
ISSUE COPA® 


8888S 2389 
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TEST 6: OPERATIONS AT EOT 


016360 WAITF ;WAIT FOR SSR TO SET 
000002 SSR(RS),R gh sGET T R CONTENTS 
100204 @5C!SSR!6IT2,R2 sSET CTED 
CMP Ri Re ; ARE EQUAL 


FATFLG 
» T34ET2,PKTSSR sWRITE The AT EOT FAILED 10 SET TSA 


SEQ 0174 


> WORD 
WORD 
sLOOP IF SELECTED 


sPICK WP XSTO 
i een 
sWAS THE 2 M ON 

sBR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 


-WORD EXPREC 
sLOOP IF SELECTED 
TRAP Cs#CLP1 
COMMAND 


~ “yy TAPE MARK CvC=1 
* POINTER TOP 


pC 
esc: iSET CT 
TARE E 
(OR, IF STAT 
:€0T NOT’ FOUND 


ae po 
St, . wee 


sLOOP IF SELECTED 
2 et xsre 
On IN 


‘BR: Ir Eot ‘was FOUND 
TFLG sERROR COUNT 
» T34ETO, EXPREC sEOT BIT (XSTO) NOT SET 


EXPECTED 


120%: sLOOP IF SELECTED 
cscLP1 


ssusat seats a ee a oh a 





776. 


057 
7781 057064 
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EoT 


002214 


002214 


140410 
000001 
060610 
000000 
016360 
000002 
100204 


002214 


060610 
060612 


1308: 


1404: 


150%: 


160%: 


Amesogeees 3 


1 
FATFLG 
ERRNO, T34STM,PKTSSR 


T34BFR-6,R1 
Ri 

#B1T0,R2 
R1,R2 


140% 
FATFLG 
ERRNO, TS4E TN, EXPREC 


3R4 = POINTER TO PACKET 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3SET EXPECTED 

sARE EQUAL 

;BR, IF STATUS IS GOOD (OK) 


SKIP TAPE MARK REV. DIDN'T SET TSA 
TRAP 


CSERHRD 
-WORD 609 
-WORD 1T34STM 
-WORD PKT 
sLOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP _XSTO 

sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

BR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 7 


RAP C#ERHRD 
-WORD 610 
. WORD T34E TN 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
3SET THE TMK BIT ON IN EXPECTED 
3sWAS THE BIT ON 
3;6R, IF TMK WAS FOUND 
sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
TRAP CSERHRD 
-WORD 611 
. WORD T34TMK 
-WORD EXPREC 


;LOOP IF SELECTED 

TRAP  _—C$CLP1 

sSPACE RECORDS REVERSE, ACK, CVC=1 CMD 
REVERSE 


sSPACE ONE RECORD 
sR4 = POINTER TO PACKET 
OMMAND 


EQUAL 

sBR, IT MIGHT BE END OF TAPE 
sERROR COUNT 

sEOT NOT FOUND (USE ate at! | 


sLOOP IF SELECTED 


SEQ 0175 


H14 
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TEST 6: OPERATIONS AT EOT 
7064 104406 TRAP C$CLP1 
7782 Os 7066 T34BFR+6,R1 sPICK UP XSTO 
7783 057072 R1,R2 sSET UP EXPECTED 
77 eBiTO,R2 iSET THE EOT BIT ON IN EXPECTED 
R1,R2 sWAS THE BIT ON 
163$ sBR, IF EOT WAS FOUND 
FATFLG 


ERRNO, T34ETN, EXPREC }€0T BIT'CXSTO) NOT SET eal 


sLOOP IF SELECTED 
sPICK UP XSTO 
sSET UP_EXPECTED 

CLEAR THE a BIT ON IN EXPECTED 
sWAS THE BIT ON 

:;BR, IF TMK WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 7 


T 


ee 
Taare 
EXPREC 
sLOOP IF SELECTED cea 
sSPACE RECORDS REVERSE ACK. CvC=1 


sSPACE ONE RECORD 
iRa = POINTER TO PACKET 


CKL 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
cop 


EQUAL 
‘8R. IT MIGHT BE END OF TAPE 
3;ERROR 

:€0T NOT FOUND CUSE SHORTER TAPE?) 
TRAP cs 

61 
pxTsen 

;LOOP IF SELECTED 

eI ste TRAP CSCLPl 

SEP OPE 

‘CLEAR THE EOT BIT ON IN EXPECTED 

SOA. IF ET Was FOUND 

POOP TF SELECTED 


- 


TRAP CSCLP 
SPACE RECORDS FORWARD, ACK, CVC=1 
SPACE TWO RE 

1 Ssh er TO 

$ 
PC WAIT FOR SSR TO SET 
TSSRcRS) RA tect TsoR $ 





TEST 1 - WARDWARE TEST 1-8 TEST MACRO VOS.03 Tuesdey 28-Apr-87 09:02 Pege 76-75 


TEST 6: OPERATIONS AT EOT 
000200 


210%: 


es 
ERRHRD 


8 
* 


o 
fod 


MOV 
ERRHRD 
CKL OOP 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
cop 
Flee 
Cx. OOP 
MOV 
MOV 
MOV 
mov 
JSR 
MOV 
MOV 
Pee 


CKLOOP 


:8R, IT 

sE0T NOT "FOUND CUSE SHORTER TAPE?) 
TRAP Cc 
. WORD oa. 

[WORD PKT 

TRAP CsCLP1 


ia ye xsT0, 
13ET Ye col Bit ON IN EXPECTED 
THE BIT ON 


sL00P IF SELECTED 


creme 
Taers 


ae FOR SSR TO a 
Set oe EQUAL 
sBR, ONLY SSR IS SET 
’ COUNT 
sEOT NOT FOUND (USE SeonTer ers 
TRAP ERHRO 
T Sanne 
PKTSSR 
csc. P) 


sLOOP IF SELECTED 
eves 
ry Peis ones Wetec 
er ce Fon some To se7 
4 creD 

:@A, IT MIGHT OF TAPE 

s€0T NOT FOUND (USE se ont el 
619 


Bet 
sLOOP IF SELECTED 
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TEST 6: OPERATIONS AT 


TRAP Csc.P) 
#140001 , 134PK3 
F T3426 


FER ADORE 
© .,134SZ (4K BYTES) 
oT Ra TO PACKET 
na,T RS) 
T »,R1 
@SSR ,R2 
Sut 
Fateuc 3 
ERRNO , TS4RRE , PKTSSR sEOT NOT FOUND (USE corm we 


;LOOP IF SELECTED 
0140001 , T34PK3 READ DATA, ACK, CVC= 
race Tine SET WS ARITE OirFER honmess 
oT 34PK$ Ae 1S A BOENTER To BACKET , 
a4, TS0B( RS) 


Fy € 
s6R, IT MIGHT 


sL0OP IF SELECTED 
PICK UP _XxSTO 
ise? 


MOV 
MOV 
MOV 
MOV 
MOV 
JSP 
MOV 
MOV 
6c 
as 
CKL OOP 
MOV 
"Ov 
MOV 
MOV 
MOV 
rv 
MOV 
6e9 
ING 
ERRHRO 
Cx. OOP 
"Ov 
MOV 
es 
TN 
ERRHRO 
Cx. OOP 
MOV 
MOV 
mov 
MCV 
JSA 
Ov 
MOV 


I 

F 
ry TSSR Gonrewt 
sSET W EXPEC 
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TEST 6: OPERATIONS AT EOT 
020102 cre Ri .R2 ;ARE THEY EQUAL 
00 230 :8R, IT MIGHT BE END OF 
002214 


$ 
ATFLG ; ERROR 
ERRNO , TS4P0S . PKTSSR 


303038 
060610 
000000 


biese0 
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TEST 6: OPERATIONS AT 


Peri 


eure 
Oy IF Mone TO COUNT 
Py EXPECTED 


:BR IT MOGHT Ge ENO OF TAPE 
’ 


w 
~ 


3agahe2 


8 COUNT 
;EOT NOT FOUND (USE orm ws 


seatEeeentee? & 


“WORD 
FOR TAPE STATUS ALERT 
xSTO 


SEPEIEE 


re 


sL00P IF SELECTED 


ie fora 


sLOOP IF SELECTED 


>>>>>>>>>2>> END TEST >>>>>>>>>>>> 
' © Stes. 


Cs€sus 
FATFLG. 015. 


9996 18a A 
PC. CKDROP Gat to DROS The UMiT 
PC, TSTLOOP 100 ME NEED 70 TTERATE TEST 
1636 :0R, IF NO LOOP REQUIRED 


= 
oe 
E.. 
ory 
one 
BEG 
Bisee 
CKi OOP 
Be 
seo 
ENDSUS 
os 
Bcc 
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TEST 6: OPERATIONS AT EOT 


8023 060452 000137 056022 JP T34L00P sEXECUTE AGAIN 

8024 060456 163%: EXIT TST sALL DONE THIS TEST 
104432 TRAP CsExIT 
002662 -WORD 110061-. 


SEQ 0161 


{LOCAL STORAGE FOR THIS TEST 


sCOMMAND PACKET FOR TEST 
;WRITE CHARACTERISTICS COMMAND, WITH ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
ae ase DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE 0 
iMESSAGE BUFFER 
iWRITE SUBSYSTEM MEMORY COMMAND PACKET 

, . =<, 6102€177770 

T34PK2: 


;WRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE/READ BUFFER 
sSIZE OF BUFFER CEXTENT) 


sLARGEST TAPE RECORD IN BYTES 
s TAPE RECORD COUNTER 
sDELAY COUNT 


WORD 
- WORD 
. WORD 
. WORD 

WORD 

WORD 

WORD 

WORD 

EVEN 

WORD 
.WORD 

WORD 


533 


AREA 
sDATA AREA 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


Hrs DATA (NEXT) 

WRITE DATA RETRY 
;WRIT E CONTINOUS 
sEND OF DAT 
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TEST 6: OPERATIONS AT EOT 


8085 1° 
sLOCAL TEXT MESSAGES FOR TEST 
t- 


a 
4 


NNNNNNNNNNNNNNNNNNNNNANNNGN 


‘TSSR Incorrect After Position gs CE RECORDS) Commend’ 
‘WRITE TAPE MARK At EOT Failed To Set EOT Bit (XSTO)’ 
"READ Command At EOT Didn’'t Give Normal Sw ° aca CTSSR)’ 
‘Unable To Clear EOT Indication, ( +r a Bit O 
Tabi tes To Set BOT (XSTO 
‘WRITE TAPE MARK At EOT Feiled To Set [ove Stetus Alert’ 
‘WRITE DATA At EOT Feiled To Set Tope, $t ore, Alert’ 
‘WRITE DATA At eer Foiled To Set EOT Bit (XSTO)’ 
REC t EOT Failed ~ay Bt. EOT Bit CXSTO)’ 
"READ DATA At Eo Foiled™ To Set al Bit ¢ es ge 
TSSR Incorrect yy SKIP TAPE MARK REVERSE At EOT’ 
‘POSIT ION Command At EOT Onto —_ Merk Failed” To Set TMK (XSTO)’ 
"EOT Not Found In 65000 3.5K Wr (Vee Shorter Tape)’ 
> vease DATA OVER EOT GAVE NO wape e*Sta US ALERT’ 
Cor WRITE Command Re ject’ 


‘RAM Error, Correc @ Pettern Not In Ram! 
‘TSSR Init. Felled. After WRITE 
reso 7 Select Feiled To Set "OFL” In TSSR’ 

TSSR Correct After WRITE DATA Command, SWB Bit Set’ 
*TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’ 
‘Cve Set, Didn''t Reset VCK In Message Buffer’ 
'T Me astcrin rect After WRITE DATA Ay ee 
‘WRITE YSTEM MEMORY Command Not Accepted (RAM Read)’ 
-ASCIZ ‘Operations At EOT' 


3 Saievessvensstonsieense 


HH HHH HH 


}ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
iMRITE SUBSYSTEM MEMORY COMMAND 

4 

3- 


T34REST: 


sehen 





Bis 
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SEQ 0183 
TEST 6: OPERATIONS AT EOT 
8142 063254 T34RT2: 
8143 063254 SAVREG sSAVE THE REGISTERS 
8144 063260 012701 060600 MOV OT34PK2,R1 sSTART OF THE PACKET 
6145 06 012721 100006 MOV 9100006 ,(R1)- sWRITE SUBSYSTEM MEM. WITH ACK 
8146 063270 012721 9T34BF2,CR1)- A SS OF DATA BLOCK 
8147 063274 1 CLR CR1)+ 3EX ADDRESS 
6148 063276 012721 000006 MOV 96.,(R1)- }SIZE OF DATA BLOCK IN BYTES 
8149 partes 012701 060626 wy eT s48F2,R1 sPOINT TO DATA SEL AREA 
8151 063310 CLR CR1)- 
8152 063312 005011 CLR C(R1) 
8153 063314 RTS PC sRETURN 
6154 063316 T34RT3: 
8155 063316 SAVREG ss. THE REGISTERS 
8156 063322 012701 060610 MOV OT34PK3,R1 sSTART OF THE oo 
6157 063326 012721 100005 MOV #100005, (R1)- sWRITE TAPE. WITH ACK 
8158 063332 005021 CLR CR1)- ee OF DATA BLOCK 
8159 063334 005021 CLR CR1)- sEXTENDED ADDRESS 
336 005011 CLR CR1) ;SIZE OF DATA BLOCK 
8161 063340 000207 RTS PC sRETURN 
3342 ENDTST 
3342 L10061: 
063342 104401 TRAP CsETST 
ates -SBTTL TEST 7: EXTENDED MODE FEATURES 
3° 
8165 8 
8166 3 THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
ir 3 THE CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 
3 
6169 ; 
8370 3 REWIND WITH IMMEDIATE INTERRUPT 
3 
8172 3 IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
res 3 IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 
3 
8175 3 
6176 3 
Si7e 3THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 
3 
8179 3 
8180 3 
6181 3- 
8182 063344 BGNTST 
063344 T7:: 
6183 063344 012737 006356 002172 MOV GEPRT1 et SW sPRIMARY ERROR MESSAGE 
8188 063352 012700 073063 MOV STst sip sASCII MESSAGE TO IDENTIFY TEST 
8189 063356 004737 016620 JSR PC, TST Set +3 3D0 INITIAL TEST SETUP 
8190 063362 012737 000005 002210 MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 
3333 063370 005037 067466 CLR T35CNT iCLEAR TAPE RECORD COUNTER 
| iad 
8193 3 
6194 sTEST 7, SUBTEST 1 
se : 
8 
6197 3 wen 7ES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, I 
8198 3 WITH THE INTERRUPT ENABLE CE? BIT CLEAR.(O), CAUSES ALMOST 
6199 3 IMMEDIATE TERMINATION BUT NO INTERRUPT. ‘STATUS IN THE MESSAGE 
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SEQ 0184 
TEST 7: EXTENDED MODE FEATURES 
8200 ' BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
8201 , IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 
8202 : 
8203 ; 
8204 3 
8205 : 
3 
8509 3- 
8208 
8209 063374 T3SLOOP: 
6210 pag Ln BGNSUB $>>>>>>>>>>>> sa SUBTEST >>>>>>>>>>>> 
. 7.1: 
063374 104402 TRAP C$BSUB 
8211 063376 004737 073114 JSR PC, T3SREST ;SET COMMAND PACKET 
8212 063402 005037 002216 CLR INTRECV }CLEAR INTERRUPT RECEIVED FLAG 
8213 063406 004737 073206 JSR PC, T3SRT2 3SET UP OTHER COMMAND PACKET 
6214 063412 004737 073250 JSR PC. T3SRT3 3SET UP OTHER COMMAND PACKET 
8215 063416 012737 176750 067472 MOV 965000. , T3SDLY ;SET UP DELAY COUNTER 
8216 063424 005037 067466 CLR T35CNT ;CLEAR COUNTER 
8217 063430 004737 016104 10%: JSR PC, SOFINIT :00 INITIALIZE ON CONTROLLER 
8218 063434 103426 BCS 203 ;BR IF INIT WAS OK 
8219 063436 DELAY 250 :DELAY ABOUT .25 SEC 
063436 012727 000250 MOV $250, (PC)- 
063442 000000 . WORD 
063444 013727 002116 MOV LSOLY,(PC)- 
063450 000000 .WORD 0 
063452 005367 177772 bEC -6(PC) 
063456 001375 BNE .-4 
063460 005367 177756 DEC -22(PC) 
063464 001367 BNE .-20 
37 067472 DEC T3SDLY :BUMP COUNTER 
6221 063472 001356 BNE 10% ;BR, IF COUNTER NOT DONE 
8222 063474 37 002214 INC FATFLG OUNT 
06 010001 mov RO,R1 ;CONTENTS OF TSSR REGISTER 
8227 063502 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
104455 TRAP C4EROF 
063504 001275 .WORD 701 
3506 0036 “WORD  SFIERR 
063510 012144 "WORD SFIMSG 
8228 063512 013737 002174 067340 204: Mov UNITN sSET UP DRIVE NUMBER 
8229 063520 012704 MOV ersapAcxet m R4 sSUBROUTINE NEEDS PACKET ADDRESS 
6230 063524 004737 010742 JSR sISSUE WRITE CHARACTERISTICS 
8231 063530 103407 BCS file :6R, COMMAND ISSUED OK 
6232 063532 37 002214 T Fa FLG ; 
010001 MOV sSAVE CONTENTS OF TSSR 
6237 063540 ERRHRD ERAND , URTMSG , SFIMSG ;WRITE CHARACTERISTISC FAILED 
063540 100456 TRAP CSERHRD 
063542 001276 02 
063544 WORD WRTMSG 
063546 012144 [WORD SFIMSG 
8238 063550 258: CKLOOP ;LOOP IF SELECTED 
063550 104406 TRAP =—s- CSCLP1 
8239 063552 004737 011126 use PC, REWIND sCALL TAPE REWIND COMMAND 
8240 063556 103411 S 308 :6R, IF NO PROBLEM 
8241 063560 010004 MOV sSET UP REWIND PACKET ADDRESS 
063562 016501 000002 MOV TOERCRS).RI sGET TSSR FOR PRINTOUT 
S08 063566 005237 002214 INC FATFLG sERROR COUNT 
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FEATURES 
ERRHRD ERRNO, TSSRWN,PKTSSR 


T3SBFR+6,R1 
#8iT1,R2 
R1,R2 


FATFLG 
ERRNO , TSSBOT , EXPREC 


$20. .R3 
$256. , 135SZ 
FREE, T35WB 


sREWIND NOT ACCEPTED 
TRAP 


sLOOP IF SELECTED 


eer UP edecren 


:SET BOT 61 OTT IN: EXPECTED 
ton IF EQUAL Con) 


ERROR 
;TAPE NOt AT BOT AFTER REWIND 
TRAP 


;LOOP IF SELECTED sand 
NUMBER OF RECORDS 

NET Ue RECORD et ze 

sADORESS OF WRITE BUFFER 


§ SSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSSSsesssse 


;WRITE DATA,ACK,CVC=1 COMMAND 


3 
§ SSSSSSSSSSSSSSSSSSSSSS SSS SSS SSS SSS SESSeses 


9140005, T3SPK3 
MOV OT35PK3,R4 
50$: nat TSDBRS) 
TEERCRS) RL 
@5SR,R2 
Ri Re 


FATFLG 
ERRNO, TSSWDE, PKTSSR 


50% 


omave on, een Gyeed 1_ COMMAND 
sSET UP R4 H PACKET ADDRESS 


s ISSUE COMMAND 
iWAIT FOR SSR _ TO SET 
GET TSSR CONT 


sLOOP IF SELECTED 


sBUMP_RECORD COUNTER 
sBR, IF MORE RRECORDS TO COUNT 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSS SSS SSS 


e 
sWAIT FOR TAPE TO STOP ALL MOTION 


a 
§ SSSSSSSSSSSSSSSSSSSSSESSSSSSS SSS SSS SESS SS 


MOV #10. ,T3SOLY 
706: DELAY 250 


sSET UP DELAY COUNTER 
sWAIT ABOUT .25 SEC 


SEQ 0185 
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TEST 7: EXTENDED MODE FEATURES 
012727 000250 
000000 
002116 


SEQ 0166 


#250, (PC)« 
L#DLY,(PC)- 
DEC -6(PC) 
BNE 
DEC “22cec) 

-20 


MOV 

. WORD 

MOV 
WORD 


cM 
sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
WRITE SUBSYS MEM PACKET 
OMMAND 
sWATT FOR SSR on 
ERROR, SAVE ouhon tnaet 
;TSSR not conn CORRECT AFTER WRT MISCELLANEOUS 
TRAP C#ERHRD 
: WORD 798ssr 
WORD  PKTSSR 
;LOOP IF SELECTED 
TRAP _—C$CLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
100$ BR, COMMAND ISSUED OK 
FATFLG : 
1 sSAVE CONTENTS OF TSSR 
ERRNO , WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 


OTSSPACKET ,R4 
PC ,WRTCHR 


- WORD 
- WORD 
- WORD 


100%: 
110%: 


sSCOPE LOOP 


#65000. , TSSOLY sSET g DELAY COUNTER 
CLR TSSCNT sDELAY COUNTER 


FSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSsSssesesesse 
}REWIND IMED. INTERRUPT,ACK,CVC#1,IE*0 COMMAND 


3 
§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


DEC 
BNE 
TST 
BNE 
MOVB 
MOVB 
MOV 
MOV 
JSR 
BcS 
MOV 
INC 
ERRHRD 
CKLOOP 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 
CKLOOP 
MOV 


. INTERRUPT, ACK,CVC=1,IE=0 COMMAND 
ADORESS 


bb be 


gapagareegensuece & 
SEERKRE RS 


REEEEEEE 


;DELAY TO KEEP COUNT 
#1,(PC)- 
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SEQ 0187 
TEST 7: EXTENDED MODE FEATURES 


064170 000000 WORD oO 
Seats 013727 002116 MOV — ~(PC)- 
064300 Sosse? 177772 DEC — 
064204 001375 BNE 
064206 005367 177756 DEC “23¢°c) 
064212 0013567 BNE 
6339 064214 005337 067472 DEC T3SOLY + ya DEAD TIMER BUMP DOWN 
8340 064220 001352 BNE 120% IF po} TIME TO GO 
6341 064222 p= Hy 000200 130%: MOV sw rset U UP EXPE . CTED 
020 CMP 3 QUAL 
8343 064230 001406 BEQ 140% sBR, IF OK 
6344 064232 37 002214 INC FATFLG ERROR COUNT 
8348 064236 ERRHRD ERRNO, TSSRWE,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
064236 104456 TRAP C$ 
064240 001304 
064242 072720 -WORD T3SRWE 
064244 012156 -WORD PKTSSR 
8349 064246 140%: CKLOOP sLOOP IF SELECTED 
064246 104406 TRAP CSCLPi 
6350 064250 005737 002216 TST INTRECV sCHECK FOR INTERRUPTS 
6351 064254 001410 ad 150$ 36R, IF NO INTERRUPTS DETECTED 
8 064256 poets) 000002 ESSACES) R1 iGEt T TSSR STATUS FOR PRINTOUT 
8 064262 0052 002214 ONC FATFLG ERROR COUNT 
6357 064266 ERRHRD ERRNO, TSSINT,.PKTSSR INTERRUPT RECEIVED (BAD) 
068266 104456 TRAP CSERHRD 
664270 1305 709 
064272 072531 WORD T3SINT 
064274 012156 . WORD 
6358 064276 150%: CKLOOP 3sLOOP IF SELECTED 
s 064276 104406 TRAP C$CLP1 
one? pPSSSCSSS SSeS SSSEESESESEESSESESESESESEE 
3 
8362 sNOW CHECK FOR THE MOTION BITS SET 
6365 8 
S368 sPSSeesesesseseseseeseeseseeseeeseeeseses 
8366 064300 013701 067350 MOV T3S5BFR-6,R1 sPICK UP XSTO 
8367 064304 010102 MOV R1,R2 sSET UP EXPECTED 
064 052702 000200 BIS e81T7,R2 sSET MCT BIT IN EXPECTED 
8369 064312 020102 CMP R1,R2 sD0ES EXP = REC'D 
8370 064314 001406 BEQ 160% sR, IF EQUAL COK) 
8371 064316 37 002214 INC FATFLG ae OUNT 
6375 064322 ERRHRD ERRNO, T3SMOT ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
104456 TRAP CSERHRD 
001306 -WORD 710 
064326 072433 -WORD T3SMOT 
064330 015604 -WORD EXPREC 
6376 064332 160%: CKLOOP 3LOOP IF SELECTED 
064332 104406 TRAP CsCLPi 
6377 064334 013701 067354 MOV T3SBFR-12,R1 sPICK UP XST2 
6378 064340 920108 MOV R1,R2 sSET UP EXPECTED 
6379 064342 02 100000 BIS #681T15,R2 1SET OPM BIT IN EXPECTED 
8380 064346 020102 CMP R1,R2 S EXP = REC'D 
8381 064350 001406 BEQ 170$ iR, IF EQUAL COK) 
86382 064352 005237 002214 INC FATFLG sERROR COUNT 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


8386 
8389 064376 
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SE@ 0188 
FEATURES 
ERRHRD ERRNO, T3SOPM,EXPREC 30PM BIT NOT SET 
TRAP CSERHRD 
«WORD 711 
-WORD 1T350PM 
-WORD EXPREC 
170$: CKLOOP sLOOP IF SELECTED 
TRAP C$CLP1 
000027 067472 MOV $23. ,T35SDLY sSET UP og oid COUNTER 
175$: DELAY 250 ISTART DELAY 
000250 MOV $250, (PC)+ 
«WORD O 
002116 MOV LSOLY,CPC)- 
. WORD 
177772 ore ~6CPC) 
177756 DEC *390PC) 
BNE --20 
067472 DEC T3SOLY BUMP yg COUNTER 
BNE 75$ 3;BR, IF MORE DELAY 
ENDSUB 
L10064: 
TRAP CsESUB 
002214 000017 CMP FATFLG, #15. 31S ERROR COUNT AT 25 
BLO 999% 3;BR, IF LESS THAN 25 
017312 JSR PC, CKDROP Y TO DROP THE UNIT 
999%: 
3° 
3 
sTEST 7: SUBTEST 2 
3 
; WITH THE INTERRUPT ENABLE (CIE) BIT SET (1), CAUSES ALMOST 
3 IMMEDIATE ee a AND AN INTERRUPT. STATUS IN THE MESSAGE 
H BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
8 IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 
3 
H 
F 
3 
3 
F 
5 
ge 
BGNSUB g>>>>>>>>>>>> “— SUBTEST >>>>>>>>>>>> 
2: 
TRAP CsB6SUB 
SETPRI #PRIOO sENABLE INTERRUPTS. 
000000 MOV @PRIOO,RO 
TRAP C$SPRI 
073114 JSR PC, T3SREST sSET COMMAND PACKET 
002216 CLR INTRECV iCLEAR INTERRUPT peer ven FLAG 
0 JSR PC, T3SRT2]) sSET UP OTHER COMMAND P. 
JSR PC, T3SRTS sSET UP OTHER COMMAND PACKET 
176750 067472 MOV #65000. ,T sSET UP DELAY COUNTER 
7466 CLR T3SCNT iCLEAR COUNTER 
016104 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 208 :BR IF INIT WAS OK 
DELAY 250 SDELAY ABOUT .25 SEC 


H1i5 


TEST 1 - HARDWARE TEST 


TEST 7: EXTENDED MODE 
012727 
000000 
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FEATURES 


000250 
002116 
177772 
177756 
067472 
002214 


067340 204: 


T3SOLY 

10 

RORI” 

ERRNO, SFIERR, SFIMSG 

UNITN, T35D0SW 

OTSSPACKET ,R4 
WRTCHR 


25 
more” 
ERRNO, WRTMSG, SFIMSG 


ERRNO, TSSRWN,PKTSSR 


T3SBFR-+6,R1 
R1 

06iT1,R2 
R1,R2 


40 
FATFLG 
ERRNO , TSSB0T , EXPREC 


$20. R3 
256. , T35SZ 


SEQ 0189 


#250, (PC)- 
LSDOLY,CPC)- 
-6¢PC) 
-22(PC) 
.-20 

:BUMP COUNTER 

:BR, IF COUNTER NOT DONE 


OUNT 
;CONTENTS OF TSSR REGISTER 
SFATAL ERROR TSSR WAS NOT 


. WORD 
«WORD 
. WORD 


sSET UP DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
3BR, IF rn ISSUED OK 


AT CONTENT S OF TSSR 
WRITE CHARACTERISTISC ran 


TWORO 

- WORD 

«WORD 
sLOOP IF SELECTED 

TRAP 
{ae IMS REWIND COMMAND 


IF NO PROBLEM 
SET UP REWIND PACKET ADDRESS 
GET TSSR CONTENTS 


sERROR COUNT 
sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 

sPICK UP_XSTO 

sSET UP_EXPECTED 

1SET BOT BIT IN EXPECTED 
S EXP = REC'D 

:BR, IF EQUAL (OK) 

yERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 


T 


sLOOP IF SELECTED 


sNUMBER OF RECORDS 
iSET UP RECORD SIZE 
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TEST 7: EXTENDED MODE FEATURES 
8466 064736 013737 003120 067442 MOVs FREE, T3Su8 sADDRESS OF WRITE BUFFER 
FSSSCSSSSSSSSSSSSSSSSSSSSSSSSsesesseseesseessse 
iWRITE DATA,ACK,CVC=1 COMMAND 
: SSSCSSSSSSSSSSSSSSSESSSSSSESSESSESSSssesesssse 
WRITE DATA, ACK .CVC=1_ COMAND 
SET UP R4 


PACKET ADDRESS 
50s: 


ERROR COUNT 
ERRNO, TSSWDE , PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
_ MORO 
“WORD 
* ORD 
;LOOP IF SELECTED 
TRAP 
sOSSSSSSSSSS SSS SSS SSS SSSSSSSSSSSSESSSSSESS 
;}WAIT FOR TAPE TO STOP ALL MOTION 
_eugueuascoonansesssesnssesessnsennsasent 
MOV —s- @10.., T3SDLY SET UP DELAY COUNTER 
70$: ay 250 {WAIT ABOUT .25 SEC 
9250,(PC)- 
L$DLY,(PC)- 
DEC ~6¢PC) 
BNE 
DEC =29¢PC) 
-=20 


MOV 

. WORD 

MOV 
WORD 


FEATURES SW SWITCH 


iWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
iWRITE SUBSYS MEM PACKET 


peananaqges 


_—— cou 
ERRNO , TSSSSR ,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CS#ERHRD 


-WORD 717 
-WORD TSSSSR 
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FEATURES 
.WORD PKTSSR 
TRAP CS$CLPl 
; SUBROUTINE NEEDS PACKET ADDRESS 
;ISSUE WRITE CHARACTERISTICS 
:8R, IF COMMAND ISSUED OK 


sLOOP IF SELECTED 


OTSSPACKET ,R4 
PC ,WRTCHR 


100% 

FATFLG r 

RO,R1 :SAVE CONTENTS OF TSSR 

ERRNO , WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
. WORD 
: WORD 
. WORD 


TRAP 


1008: sSCOPE LOOP 


1108: #65000. , TSSOLY :SET UP DELAY COUNTER 
cL TSSCNT sDELAY COUNTER 


FSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSsesseses 
;REWIND IMMEDIATE, ACK.CVC=1,IE*1 COMMAND 


é 
§ SSSCSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsesssse 


@1,(PC)- 
LSOLY,.CPC)- 
“6cPc) 
-22(PC) 
.-20 


ERRNO , TSSRUE . PKTSSR 


; WORD 
;LOOP IF SELECTED 
sCHECK FOR INT 


ERRUPTS 

1308 1OR, TF INTERRUPTS DETECTED 
SSR(RS),R1 :GEt TSSR STATUS FOR PRINTOUT 

FATFLG sERROR COUNT 
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FEATURES 
ERRHRD ERRNO, TSSNIN,PKTSSR s INTERRUPT NOT RECEIVED cero? 


150s: CKLOOP sLO00P IF SELECTED 


F SSSSSSOSSSSSSSSSSSSSSSSSSSSSSSSSSssssssese 
NOW CHECK FOR THE MOTION BITS SET 
: SSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSseesessessse 
MOV Jesgne-6.M8 see ¥ iT 1. 
e8iT? 2 ;SET MOT BI CIN N EXPECTED 
R1.R2 :D0ES REC'D 


1656 i8R. IF EQUAL (OK) 

ATFLG ERROR COUNT 

ERRNO. TSSMOT . EXPREC :TAPE NOT AT BOT AFTER REWIND 
;LOOP IF SELECTED 
PICK WP XST2 


opm ext’ NOT set 


sLOOP IF SELECTED 

sSET Del AY COUNTER 

ist DELAY 
° 
gee. -CPC)- 
~6CPC) 
"22¢PC) 

.-20 


TSSOLY Bure AY COUNTER 
1756 sBR, MORE DELAY 


110065: 


002214 000017 FATFLG. 015. ae ary 
9996 IF tess tH THAN 





L15 
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TEST 7: EXTENDED MODE FEATURES 


6597 06' 
) + Fae 


~ 
w 


a eEreereoeenateces 


4 4 
Soren aen ae 


e 
oR 
E 


E Ee 
eeebese 


8 
8 
FRR 
x 
¥ 


004737 


017312 


073114 
073206 


73250 
016104 
002214 


002174 
067320 
010742 


002214 


PC .CKDROP 


TEST 7, SUBTEST 3 


067340 204: 


VERIF yt wien ts TAPE - 


IA 


» WRTMSG , SFIMSG 


TERMINATE ALMOST IMMEDIATELY 
MESSAGE BUFFER. AFTER A DELAY L 
REWIND TO 
AGAIN I 
CLEAR 


SEQ 0193 


sTRY TO DROP THE UNIT 


STATUS © 


ETE AND THE TAPE COME TO 
AND THE “STATUS CHECKED: 


g>>>>>>>>>>>> a? SUBTEST >>>>>>>>>>>> 
3: 
Cs6SuUB 
sSET COMMAND PACKET 
3sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND P 
ar Ize yc penateneene 
F ng WAS 
§ RYne 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP Cc 
-WORD 723 
- WORD IERR 
-WORD SFIMSG 
sSET WP NUMBER PACKET 
3 SUB' ADORE 
+ es WRI MENARACTERISTICS 
a ° a ae 
sERROR 
3SA iy oh it Md TSSR 
3;WRI CHARAC STISC FAILED 
TRAP Geen 
. WORD 24 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CscLPl 
sCALL TAPE REWIND COMMAND 
+ If NO a - 
3 rete, ACKET ADORE 
sGET 3 te: CALL 
HN 
sREWIND NOT 
TRAP CSERHRD 
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FEATURES 


;LOOP IF SELECTED 
TSSBER-6, R1 PICK UP XxXSTO 
EXPECTED 

sein. R2 3 BOT BIT IN EXPECTED 

R1,R2 ;D0ES EXP = REC'D 
40 iOR, IF EQUAL (OK) 
FATFLG gERROR COUNT 
ERRNO, T3SB0T , EXPREC ;TAPE NOT AT BOT AFTER REWIND 


T 


sLOOP IF SELECTED 


0127 000024 620. ,R3 sSTARTING RECORD SIZE 
013737 FREE , TSSWB sSTARTING WRITE BUFFER ADDRESS 


FSSSSSSSSSSSSSSSSSSSSESSSSSESSSSSSSSESSesesessse 
}WRITE DATA,CVC=1,ACK COMMAND 
: HEBERT KE CH HSK HKKKREKHOEE ERS KHRES SRE KEE HS 
654: 140005, T3SPK3 SURITE DATA. CVC*3 ACK COMMAND 
4 Ra ISET UP R4 WITH ADDRESS 
TET PATIERN-IN CORRECT REGISTER 
MEMORY WI 


ORD SIZE 
PACKET 


MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 


G 
ERRNO, TSSWOC , PKTSSR 


80$: CKLOOP sLOOP IF SELECTED 


FSSSSSSSSSSSSSESSSSSSESSSSSSSSESSESSSSSSsessesse 

SWRITE DATA RETRY,CVC#1,ACK COMMAND 

: SSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSssesesesssse 
#141005, T3SPK3 sWRITE DATA RETRY.CVC=1.ACK COMMAND 
R4, TS0BR5) COMPIAND 


PC WAIT TF TO SET 
TSSRCRS),RI WATT 1SER CONTENTS 





TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


8714 066110 
8715 066112 
6716 066116 
8720 066122 
066122 
066124 
066126 
066130 
8721 066132 


012702 
20108 
005237 
104456 


Sostee 
0721 
012156 
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FEATURES 
000200 


pot 


SoiGRes 2 
8 


y 


@SSR ,R2 

Ry Re 

FATFLG 

ERRNO, T35SWRF ,PKTSSR 


T3SBFR+6,R1 

R2 
#81T1,R2 
R1,R2 


$ 
FATFLG 
ERRNO, TSSBOT , EXPREC 


#20. ,R3 
FREE , TSSRB 


sSET UP EXPECTED 
sARE He ae QUAL 
ton, 


TSSR INGORRECT AFTER WRITE DATA RETRY 
: taae $ERHRO 


"ORO 

- WORD 

. WORD 
sLOOP IF SELECTED 


R 
sBUMP RECORD SIZE COUNTER 


sAT 42 SIZE YET 
RECORDS TO WRITE 
ND COMMAND 


;LO0P IF SELECTED 

sPICK UP _XSTO 

}SET UP EXPECTED 

‘SET BOT BIT IN EXPECTED 

1DOES EXP = REC'D 

1OR, IF EQUAL COK) 

:TAPE NOT AT BOT AFTER REWIND 
TRAP 
WORD 
“WORD 
~WORD 

,LOOP IF SELECTED 


AP 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


§ FSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSSs 
5 

sREAD DATA,ACK COMMAND 
| Cocccccccoccccscssoocccosoecsoccsceseess 


067440 265%: 


PET us na UtTH ADORE 
Pu. PEMORY ULTH RECORD StTE 
sete me 


8 RE! SIZE IN 
al 


ase 





Bi6 
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SEQ 0196 
TEST 7: EXTENDED MODE FEATURES 
8751 066250 020102 CMP R1,R2 sARE THEY EQUAL 
8752 066252 001406 BEQ 2803 :BR, IF OK 
8753 066254 005237 002214 INC FATFLG ERROR COUNT 
8757 066260 ERRHRD ERRNO, T3SROF ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
066260 104456 TRAP OC 
066262 001333 .WORD 731 
066264 067562 “WORD T3SROF 
066266 012156 “WORD PKTSSR 
8758 066270 280$:  CKLOOP ;LOOP IF SELECTED 
066270 104406 TRAP = C$CLP1 
8759 066272 013702 003120 MOV FREE ,R2 :GET BUFFER ADDRESS 
8760 066276 010304 MOV R3,R4 iGET R RECORD SIZE 
8761 066300 162704 000024 SUB 620. ,R4 sPOINT BACK TO 1ST RECORD 
8762 066304 060204 285$: ADD R2,R4 {POINT TO 1ST LOC IN BUFFER 
8763 066306 021403 CMP (R4),R3 }DATA WRITTEN = READ 
8764 066310 001410 BEQ ' IF DATA OK (GOOD) 
8765 066312 011401 MOV (R4),R1 ;PICK UP B 
8766 066314 010302 MOV R3,R2 ;SET UP EXPECT 
8767 066316 005237 002214 INC FATFLG sERROR C 
8771 066322 ERRHRD ERRNO, T3SDTA, EXPREC ;DATA IN BUFFER NOT CORRECT 
104456 TRAP § CSERHRD 
001334 .WORD 732 
072255 "WORD TS3SDTA 
066330 015604 “WORD EXPREC 
8772 066332 290%:  CKLOOP ;LOOP IF SELECTED 
066332 104406 TRAP C$CLP1 
8773 066334 005724 TST (R4)- sBUMP TO NEXT ADDRESS 
8774 066336 160204 SUB R2,R4 sBACK TO RECORD SIZE 
8775 066340 020403 CMP R4-R3 AT END OF RECORD YET 
8775 066342 001360 BNE 285% i8R, IF MORE DATA TO CHECK 
8777 066344 005723 TST (R3)- BUMP RECORD SIZE 
8778 066346 020327 000050 CMP R3, 040. sD0NE YET 
8779 066352 001313 BNE 265% i8R, IF NOT DONE YET (MORE READS) 
8780 066354 300:  CKLOOP ;LOOP IF SELECTED 
066354 104406 TRAP = C$CLP1 
8781 066356 330$: 
8782 066356 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
066356 L10066: 
066356 104403 TRAP C$ESUB 
8783 066360 023727 002214 000017 CMP FATFLG, #15. s1S COUNT AT 25 
8784 066366 103402 BLO 999$ :8R, IF LESS THAN 25 
8785 066370 004737 017312 JSR PC, CKDROP sTRY TO DROP THE 
8786 066374 9994: 
86787 3° 
8788 3 
8789 sTEST 7, SUBTEST 4 
3 
8791 ’ VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE. POSITION), 
8792 ; ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH 
8793 ' IMMEDIATE INTERRUPT COMMAND, IS "QUEUED” BY THE CONTROLLER AND 
8794 ' THEN EXECUTES PROPERLY. 
8795 3 
8796 : 
8797 ; 
8798 :- 


8799 066374 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
066374 17.4: 
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SEQ 0197 
TEST 7: EXTENDED MODE FEATURES 
066374 TRAP C$B8SUB 
exon Geese S04787 ovsize a eee sSET 69 “ 
J 
S803 066406 004737 073250 JSR *T35SRT SET uP Eas is ate: PACKET 
8803 066412 012737 176750 067472 MOV 968000 , T3SDLY UP_DEL 
8804 066420 004737 0161 108: JSR PC, SOFINIT 100 INITHALTZE CON ON CONTROLLER 
8806 _—_ Bec ay got tBELAY ABOUT SS SEC 
3 
Seease 012727 000250 MOV #250, (PC)- 
066432 000000 .WORD 0 
066434 013727 002116 MOV LSOLY,(PC)- 
066440 000000 .WORD 0 
066442 177772 BEC ~6(PC) 
066446 001375 BNE 
066450 005367 177756 DEC "33cPC) 
066454 001367 BNE .-20 
8807 066456 005337 067472 DEC T35DLY ;BUMP COUNTER 
001356 BNE o8 :6R, IF COUNTER NOT DONE 
08237 002214 INC FATFLG OUNT 
8813 066470 010001 MOV Ri CONTENTS OF TSSR REGISTER 
8814 066472 ERROF ERRNO, SFIERR, SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
066472 104455 TRAP CSERDF 
066474 001335 .WORD 733 
066476 003650 "WORD SFIERR 
066500 012144 “WORD SFIMSG 
066502 013737 002174 067340 204: MOV UNITN T3S5DSW 3SET UP UNIT CORIVE 9 NUMBER 
8816 066510 012704 06 MOV TSSPACKET .R’ RY sSUBROUTINE NEEDS PACKET ADORE 
8817 066514 737 010742 JSR Pe oR TISSUE WRITE CHARACTERISTICS 
18 066520 103407 BCS 23 :8R, IF COnIAND ISSUED OK 
8819 066522 37 002214 INC FATFLG COUNT 
3 066526 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
066530 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
066530 104456 TRAP § C$ERHRD 
066532 001336 . WORD 
066534 “WORD WRTMSG 
066536 012144 “WORD  SFIMSG 
8825 066540 234: CKLOOP ;LOOP IF SELECTED 
066540 104406 TRAP = CSCLP1 
8826 066542 004737. 011126 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
8827 066546 103411 BCS 38R, IF NO PROBLEM 
8828 066550 016501 000002 MOV TSSRCRS), R1 :GEt TSSR CONTENTS 
8829 066554 010004 MOV RO,R iGET PACKET ADORESS 
8830 066556 005237 002214 INC FATELG sERROR COUNT 
8834 066562 ERRNO, TSSRWN, PKTSSR sREWIND NOT ACCEPTED 
066562 104456 TRAP CSERMRD 
066564 001337 . WORD 5 
066566 070574 "WORD TSSRUN 
066570 012156 "WORD SSR 
8835 066572 308: CKLOOP ;LOOP IF SELECTED 
066572 1 TRAP CS$CLP1 
8836 066574 013701 067350 MOV TSSBER+6, R1 PICK er xs! XSTO_ 
066600 0101 MOV R1,R2 
8838 066602 052702 000002 BIS #8171,R2 1SET BOT art’ IN A EXPECTED 
8839 066606 020102 CMP R1,R2 ;D0ES EXP = REC'D 
8840 066610 001406 BEQ 404 1BR, IF EQUAL (OK) 
066612 37 002214 INC FATFLG A 
8845 066616 ERRHRD ERRNO, T35SB0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 


066616 


TEST 1 - HARDWARE TEST 
TEST 7: EXTENDED MODE 


104456 
001340 
070270 
015604 


104406 
012703 
013737 
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FEATURES 


000024 
003120 


067442 


067440 


067440 


SEQ 01% 
TRAP CSERHRD 
-WORD 736 
-WORD T35B80T 
-WORD EXPREC 
40$: CKLOOP sLOOP IF SELECTED 

TRAP CSCLP1 

MOV #20. ,R3 sSTARTING RECORD SIZE 

MOV FREE , T3SWB sSTARTING WRITE BUFFER ADDRESS 


PSSST SSS ESTEE TEESE REESE SE FEE EEE EE EES 
: 
sWRITE DATA,CVC=1,ACK COMMAND 


3 
SPSS SEES SERS SKE KEK ETEK EKER EEE 


65$: MOV #140005, T35PK3 ;WRITE DATA. CvC=3 ACK COMMAND 
MOV OT35PK3,.R4 3SET UP R H PACKET ADDRESS 
MOV R3,RO iSET PATTERN, IN CORRECT REGISTER 
JSR PC, FILLMEM sFILL MEMORY WITH RECO SI 
MOV R3,T35SZ sSeT UP RECORD SIZE IN nexet 
MOV R4. TSDBCRS) 
JSR PC, WAIT iWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @5SR,R2 sSET WP EXPECTED 
CMP R1,R2 SARE T 
BEQ 3BR, 
ERHARD ERRNO TSSWOC PKTSSR TSSR INCORRECT OAL FTER WRITE DATA 
° e 3 
thie CSERHRD 
.WORD 737 
"WORD TS3SWOC 
"WORD PKTSSR 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 


SFSSSSSSSSSSSSSSSESSSSSSSESSSESSESSESSESESSSSESSS 
;WRITE DATA RETRY,ACK,SWB=1 COMMAND 


3 
§SSSSSSSSSSSSSSSSSESSSSSSSSS SSS SSES SSS SE SESS 


MOV #111005, T35PK3 sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
MOV R4, TSDBCRS) ; COMMAND 
JSR PC. WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),RI ' T ENTS 
MOV @SSR,R2 SET CTED 
CMP R1,R2 ;ARE EQUAL 
BEQ 90% iBR, IF OK 
INC FATFLG nb ERROR COUNT 
ERRHRD ERRNO, T3SWRF ,EXPREC sTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP Seeeee 
"WORD «TSSuRF 
“WORD EXPREC 
90%:  CKLOOP ;LOOP IF SELECTED 
RAP —s- C$CLP 1 
TST (R3)- :BUMP RECORD SIZE COUNTER 


E16 
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8917 067076 


942 1 
8943 067176 
8944 202 
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FEATURES 
000052 
011126 
000002 
002214 


000024 
003120 


003120 


230%: 


2403: 


067442 


TSSRC(RS),R1 


FATFLG 
ERRNO, T3SRWN, PKTSSR 


T35BFR+6,R1 
81T1,R2 
R1,R2 


$ 
FATFLG 
ERRNO, T3SBOT , EXPREC 


$20. R3 
FREE, TSSRB 


sAT 42 SIZE YET 
sBR, 4 MORE RECORDS TO WRITE 
sCALL_TAPE REWIND COMMAND 


:BR, IF NO 

sGET TSSR CONTENTS 

sGET PACKET 

3 

;REWIND NOT ACCEPTED 
TRAP 
. WORD 
“WORD 
“WORD 

;LOOP IF SELECTED 
TRAP 


rBICK UP_XSTO 
EXPECTED 
SET BOT BIT IN EXPECTED 
s REC'D 
iBR, IF EQUAL COK) 
ERROR COUNT 
:TAPE Not AT BOT AFTER REWIND 


sLOOP IF SELECTED 


sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FSSC S SSeS eeeSETSSESESSEESETEEETETEEEEES 
: 
sREAD DATA,ACK COMMAND 


B 
FSSSSSSSSSSSSSSSSSSSSSSSSSSS SS SSS SESS SS SES 


067440 265%: 


280%: 


285%: 


38355888 


3 m 


S538 2 


$200003 » + T3SPK3 


2 
FATFLG 
ERRNO 


sREAD DATA,ACK Ci 

sSET UP R4 WITH 

sSET UP RECORD SIZE IN PACKET 
COMMAND 


iWAIT FOR SSR _TO SET 


iGET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

36R, IF OK 

ERROR COUNT 

:TSSR INCORRECT AFTER READ DATA 
_ WORD 
WORD 
WORD 

,LOOP IF SELECTED 
TRAP 

,GET BUFFER ADDRESS 

iGET RECORD SIZE 

POINT BACK TO 1ST RECORD 


sPOINT TO 1ST LOC IN BUFFER 


OMMAND 
PACKET ADDRESS 


SEQ 0199 


C#ERHRD 
740 
T3S5B0T 
EXPREC 


CsCLP1 
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R3 sSWAP BYTES SWB=1 ETC. 
(R4),R3 ;D0ATA WRITTEN = READ 
2904 :BR, IF DATA OK (6000) 
R4),R1 sPICK UP BAD DAT 

R Rd 3 

FATFLG 


sERROR COUNT 
ERRNO, TSSDTA, EXPREC sDATA IN BUFFER NOT —,, 


sLOOP IF SELECTED 


T DONE YET (MORE READS) 
BR? fF NOTLECTED 
TRAP = C$CLP1 


3>>>>>>>>>>>> ~ >>>>>>>>>>>> 
L 3 
TRAP CsESUB 
FATFLG, #15. A 
999¢ 


PC, CKDROP 


PC, TSTLOOP NEED TO ITERATE TEST 
163$ F NO LOOP REQUIRED 
JP T35L.00P E AGAIN 
1634: EXIT TST THIS TEST 
TRAP = C$EXIT 
.WORD 110063-. 


SLOCAL STORAGE FOR THIS TEST 
, _=¢, ©102€177770 


T3SPACKET : 
. WORD 100004 iWAITE’G Unite CHARACTERTST 1s. COMMAND WITH , ACK 
3S5DATA ACTERISTICS BLOCK 


0 

10. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

[asere ; sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sSELECT DRIVE 0 

2s. sMESSAGE BUFFER 

;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
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SEQ 0201 
TEST 7: EXTENDED MODE FEATURES 

8997 , 
8999 067430 =<, ©10€177770 
9001 067430 T3SPK2: 
9002 067430 100006 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
9003 067432 067450 “WORD  T3S5BF2 ;ADDRESS OF SELECT BLOCK DATA 
9004 067434 000000 "WORD 0 
9005 067436 000006 “WORD 6. ;SIZE OF DATA PACKET 
9010 067440 T3SPK3; 
9011 067440 100005 .WORD 100005 ;REREAD COMMAND, AND ACK 
9012 067442 13 
9013 067442 003120 T3S5WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 
9014 067444 000000 "WORD 0 
9015 067446 000000 T3SSZ: [WORD 0 ;SIZE OF BUFFER (EXTENT) 
9016 EVEN 
9017 3 
9018 3 
9019 
$020 067450 +35eF2: 
9021 067450 010 T35BS0: .BYTE 10 :BSELO AREA 
9022 067451 200 135851: {BYTE 200 SBSEL1 AREA 
9023 067452 000000 35S2: ‘WORD SEL 2 AREA 
9024 067454 000000 T3583: [WORD 0 1DATA AREA 

3 
9026 3 
9027 .EVEN 
9028 :TAPE MOTION PACKET COMMAND VALUES 
9030 067456 100205 T3SRN: .WORD 100205 ;REREAD DATA (NEXT) 
9031 067460 100605 T3SWOR: “WORD 100605 }REREAD DATA RETRY 


102205 
«WORD 177777 


T35CNT: .WORD 0 


sWRITE CONTINOUS 
sEND OF 


sTAPE TIMER COUNTER STORAGE AREA 


.¢) sTAPE TIMER COUNTER STORAGE AREA 
9038 067472 000000 T3SOLY: .WORD 0 sDELAY COUNTER 


9043 067474 124 141 160 T3SWNG: .ASCIZ ‘Tape Position Incorrect After ae Previous (OPP=1)' 
9044 06 1s 123 is T3SROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 


9045 067631 105 T3SRRF: .ASCIZ AD Previous ( Reverse, Reed Forward) Command Failed’ 
0677, 120 117 123. T35SC: . IZ ‘ POSITION (Spece Command) Failed, TSSR Not Correct’ 
9047 070010 122 111 102 T3SLOR: .ASCIZ ‘RIB NOT AFTER READ REVERSE INTO BOT’ 
07 123 123 t= *TSSR rect After Illegel Bits 
9049 070135 111 154 T35L0Q@: .ASCIZ ‘Illegal Mgde Bits, Feiled To Set ILC Bit In xSTO" 
070216 123 123 T35WOE: :ASCIZ ‘TSSR Not Correct After WRITE DATA 
9051 070270 141 60 T35B0T: .ASCIZ ett. At iT After neue er (BOT Not Set In XSTO)’ 
9052 070363 127 122 111 TS3STIM: .ASCIZ ‘WR TA RY’ “Br Erese T TaTOs- 
9053 07 105 22 T3SEOQT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO oTape’ STAT 
9054 070517 124 123 3 T3STM: .ASCIZ ‘TSSR Correct After AD COMMAND R Reject” 
9055 07 122 145 167 : .ASCIZ ‘Rewind (POSITION 
07 122 101 115 T3SRNC: .ASCIZ ‘RAM Error 


. Correct Data Pattern Not in Rem’ 
124 : .ASCIZ ‘TSSR Init. Failed After REREAD C 
9058 070765 104 162 151 T35OFL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL" In TSSR’ 


H16 
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9088 073114 
9089 073114 
9090 


9114 073234 
9115 073236 


012701 
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FEATURES 


123 123 135) : “ASEE *TSSR Not rect After penens pare sete | SWB Bit Set’ 
123 123 T3SWOC: .ASCI ‘TSSR Not Correct After RERE ATA 
126 103 T35VCK: “ASSES ve Set, Didn’'t R VCK In Nees Buffer’ 
123 102 T35BA: . IZ ‘TSBA Not-Correct After REREAD DA 
122 111 T3SWSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not t Accepted (RAM Read)’ 
145 141 TS3SLON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
145 141 T3SLOP: .ASCIZ ‘Reading ‘¢ Record Failed To Set RLS Bit In XSTO’ 
145 16 35PBP;: .ASCIZ spesiauel © ——— Incorrect After Short Record Read’ 
145 141 T3S5TRL: .ASCIZ ong Record 4S abe gy To Give T Status Alert 
122 111 T3SNEF: .ASCIZ ware Bat RY, At First rd, Failed To Set RIB Bit XST3' 
123 123 T35SCF: :ASCIZ ‘TSSR Not Correct After SPACE REC 
123 123 T3STSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA AL tnto BOT’ 
123 123. T3SWRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY m 
141 164 T3SDTA: .ASCIZ ‘Date Compare Error, Data Read From T Not Equal To Written’ 
123 123. T35SSSR: .ASCIZ ‘TSSR Incorrect After WRITE MISCELLANE Commer 
117 124 T3SMOT: .ASCIZ ‘MOT Bit CXSTO) Not Set Duri Rewind (Extended Features Mode)’ 
156 164 T3SINT: .ASCIZ ‘ Interrupt Received After Command CIE Bit Not Set)’ 
120 115 T3SOPM: .ASCIZ ‘OPM Bit CXST2) Not Set Duri Rewind (Extended Features Mode)’ 
123 123 T3SRWE: .ASCIZ ‘TSSR Incorrect After Ext Features REWIND Command’ 
157 040 T3SNIN: .ASCIZ ‘No joterrvet Detected After REWIND IMMEDIATE’ 
170 164 TST35I0: -ASCIZ Functions’ 
EVEN 
t ad 
$ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 
3 
g- 
T3SREST: 
SAVREG . THE a ar ae 
067320 Vv oto te R1 sSTART OF THE PACKET 
MOV CRi)- WRITE SUBSYSTEM MEM. WITH ACK, 
067330 roe! é13SDRTA, CRA) 1808 OF —- DATA BLOCK 
3 
000012 MOV 10. ,CR1)- sSIZE OF DATA BLOCK IN BYTES 
067342 HOV OTSSBFR, (RI )- sADDRESS OF MESSAGE BUFFER 
000024 wy +s +t Cat sLENGTH OF MESSAGE BUFFER 
000000 MOV €0,(R1) sSELECT DRIVE ZERO 
000030 MOV $24. OF LOCATIONS TO BE CLEARED 
177777 067342 64$: MOV 0177777, T3SBFR(R2) sALL ONES TO MESSAGE BUFFER 
TST -(R2) sNEXT LOCATION 
000000 CMP #0 ,R2 sAT END OF LOOP 
BNE 643 : GOING UNTIL DONE 
RTS PC sRETURN 
T3SRT2: 
SAVREG 3sSAVE THE REGISTERS 
067430 MOV OT35PK2,R1 sSTART OF THE P. 
MOV #100006, (R1)- sWRITE SUBSYSTEM MEM. WITH ACK, 
067450 MOV OT35BF2,CR1)- sADDRESS OF DATA BLOCK 
CLR CA De s EXTENDED Ss 
000006 we Pe: CR1)- sSIZE OF DATA BLOCK IN BYTES 
067450 MOV oT SS0F2,R1 sPOINT TO DATA SEL AREA 


SEQ 0202 
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suis grease 


9118 073246 


1 


00502 
005011 
000207 


012701 
005021 
005021 
005021 
005011 
000207 


104401 


067440 


T3SRT3: 


+ 


SEQ 0203 
R Ri)- 
R fra 
RTS PC sRETURN 
SAVREG sSAVE REGISTERS 
MOV $T35PK3,R1 sSET UP POINTER ADDRESS 
CLR $Ri 3° sCOMMAND SP. 
8 ona. + ADDRESS OF DATA BLOCK 
CLR CR1) ;SIZE OF DATA TRANSFER BLOCK 
RTS PC sRETURN 
ENDTST 


L10063: 
TRAP CSETST 
-SBTTL TEST 8: RECORD BUFFERING 


THIS TEST boat THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED 4 THE EXTENDED SOT MCREARY IN DATA WORD. IF THE 


¢ ONT E), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY M2342 4 ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
porter AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
ORMED : 


1. THE TAPE IS REWOUND. 


2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


4. THE PROGRAM DELAYS FOR A MP 3 SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


5S. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
ig ISSUED THE AM S, INA WATT Loop, THE’ 
TIME IT TAKES TO RECEIVE COMMAND TERMINATI THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUF CERING Is 


6. BUFFERING IS ENABLED. 

7. THE WRITE DATA aan cee IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 


J16 
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SEQ 0204 
TEST 8: RECORD BUFFERING 
9171 : BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
9172 ; TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
3173 ; THAN THAT MEASURED FOR THE BUFFERED CASE. 
3 
9175 ; 9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
9176 ; RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
+ oa ; THE RANGE 20 THROUGH 3.5K. 
3 
9179 3 
3280 ;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
3 
9182 : 
9183 3 
9184 3- 
9185 073274 BGNTST 
073274 8: 
9186 073274 012737 006356 002172 MOV EPRT1,EPRTSW ;PRIMARY ERROR MESSAGE 
9187 073302 004737 017404 JSR PC .KTOFF ;TURN OFF KT11 
9192 073306 012700 100677 MOV #TST361D,RO }ASCII MESSAGE TO IDENTIFY TEST 
9193 073312 004737 016620 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
9194 073316 012737 002210 MOV 05, LOOPCNT }PERFORM 5 ITERATIONS 
3195 073 005037 075706 CLR }CLEAR TAPE RECORD COUNTER 
3° 
9197 3 
9198 ;TEST 8, SUBTEST 1 
9199 3 
9200 3 
9201 ;VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
9202 ;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
9203 sTERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
9204 ;ERROR BIT SET. 
9205 3 
9206 3 
9207 3- 
9208 
9209 073 T36LO0P : 
9210 Or eeee BGNSUB 3>>>>>>>>>>>> a Saves >>>>>>>>>>>> 
0733 1 TRAP CsBSUB 
9211 073332 004737 1007 JSR PC, T36REST ;SET COMMAND PACKET 
12 0733 004737 101012 JSR PC, T36RT2 3SET UP OTHER COMMAND PACKET 
9213 073342 004737 101 JSR PC, T36RT3 sSET UP OTHER COMMAND PACKET 
9214 073346 012737 176750 075712 MOV 5000. ,7 3SET UP DELAY COUNTER 
9215 073354 005037 0757 CLR 36CNT sCLEAR COUNTER 
9216 073360 004737 016104 10%: JSR PC, SOFINIT :00 INITIALIZE ON CONTROLLER 
9217 073364 103426 BCS 203 :6R IF INIT WAS OK 
9218 073366 DELAY 250 sDELAY ABOUT .25 SEC 
073366 012727 000250 MOV #250,(PC)- 
073372 . WORD 
073374 013727 002116 MOV L$OLY,(PC)- 
073400 . WORD 
073402 005367 177772 DEC ~6CPC) 
073406 001375 BNE 
073410 005367 177756 DEC "29(PC) 
073414 001367 BNE .-20 
19 073416 005337 075712 DEC T36DLY sBUMP COUNTER 
9220 O7425 001356 BNE 10% :8R, IF COUNTER NOT DONE 


K16 
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SEQ 0205 
TEST 6: RECORD BUFFERING 


9221 073424 005237 002214 INC FATFLG ;ERROR COUNT 

9225 073430 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

9226 073432 ERRNO, SFIERR, SFIMSG FATAL ERROR TSSR WAS NoT alk 
073432 104455 CSEROF 
073434 00144) "TORO 1 
073436 003650 ‘WORD SFIERR 
073440 012144 “WORD SFIMSG 

9227 073442 013737 002174 075560 208: MOV UNITN TS60SW sSET UP DRIVE NUMBER 

9228 073450 012704 075540 MOV 36PACKET,R ’ INE NEEDS PACKET 

9229 073454 004737 010742 JSR Hs WRTCHR sISSUE WRITE CHARACTERISTICS 

9230 073460 103407 BCS 253 :8R, COMMAND ISSUED OK 

9231 073462 005237 002214 INC FATFLG sERROR C 
073466 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

9236 073470 ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 
073470 104456 CSERHRD 
073472 001442 THORD 2 
073474 [WORD WRTMSG 
073476 012144 ‘WORD  SFIMSG 

9237 0 25%: CKLOOP ;LOOP IF SELECTED 
073500 104406 TRAP CS$CLP1 

9238 0 004737 011126 JSR PC , REWIND ;CALL TAPE REWIND COMMAND 

9239 073506 103407 BCS 30$ BR NO PROBLEM 

9240 073510 010004 MOV RO,R4 ; UP REWIND PACKET ADDRESS 

9241 073512 005237 002214 INC FATFLG sERROR C 

9245 073516 ERRNO, T36RWN,PKTSSR ;REWIND NOT ACCEPTED 
073516 104456 TRAP §CSERHRD 
073520 001 . WORD 3 
073522 077121 [WORD T36RWN 
073524 0121 "WORD PKTSSR 

9248 073526 30$: CKLOOP ;LOOP IF SELECTED 
073526 1 TRAP CS$CLP1 

9247 073530 013701 075570 MOV T36BFR+6,R1 ;PICK UP XSTO 

9248 073534 010102 MOV R1,R ;SET UP EXPECTED 

9249 073536 052702 000002 BIS #B81T1,R2 SET BOT BIT IN EXPECTED 

9250 073542 020102 CMP R1,R2 ;D0ES EXP = REC'D 

9251 073544 001406 BEQ 40 i8R, IF EQUAL COK) 

9252 073546 005237 002214 INC FATFLG ERROR COUNT 

9256 073552 ERRNO, T36B0T , EXPREC ;TAPE NOT AT BOT AFTER REWI*D 
073552 104456 TRAP §CSERHRD 
073554 001444 .WORD 604 
073556 076615 “WORD T36B80T 
073560 015604 “WORD EXPREC 

9257 073562 40$: CKLOOP ;LOOP IF SELECTED 
073562 104406 TRAP = C$CLP1 

9258 073564 013737 002174 075560 MOV UNITN, T36D0SW sSET UP DRIVE NUMBER 

9259 073572 052737 000030 075560 BIS $8173 !B114, T36DSW 325-APR-83 REV B - TURN ON THE BUFFERING 

9260 073600 012704 075 MOV OTS6PACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 

9261 073604 004737 010742 JSR }ISSUE WRITE CHARACTERISTICS 

9262 073610 103407 BCS 50 3BR, COMMAND ISSUED OK 

9263 073612 005237 002214 INC FATFLG ; 

9267 073616 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9268 073620 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
073620 104456 TRAP § CSERHRD 
073622 001445 .WORD 6805 
073624 "WORD WRTMSG 
073626 012144 [WORD  SFIMSG 

9269 073630 S0$: CKLOOP ;LOOP IF SELECTED 


L16 
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003720 
003120 
140005 


TSSRCRS), R1 

Ri ee 

603 

FATFLG 

ERRNO, WRTERR,PKTSSR 


DEC 
BNE 
CMP 
BEQ 
JMP 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
BIT 
BNE 
INC 
DELAY 


33n8 


TRAP CsCLP1 
UP RECORD SIZE 
OF WRITE BUFFER 


PACKET ADDRESS 


ERROR COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


-WORD 806 
-WORD WRTERR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
s25-APR-83 REV B - DELAY FOR TAPE TO STOP 
325-APR-83 REV B - DELAY ROUTINE CALL 
MOV 01,(PC)+ 
LSDLY,(PC)- 
~6CPC) 


“23¢0C) 
-20 


#1, (PC)- 
LSOLY,(PC)- 
~6CPC) 
-22(PC) 

-20 
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TEST 8: RECORD BUFFERING 
Z308 soe O7aiae 


100$ 
002214 FATFLG 
ERRHRD ERRNO, TS6WDE ,PKTSSR 


UNITN, T360SW 

$8173, T36DSW 

OT36PACKET ,R4 
WRTCHR 

110% 

more” 

ERRNO, WRTMSG, SFIMSG 


074312 
9338 074314 
9339 074320 
9340 074322 
9341 074326 
9342 074330 
9343 074332 
9347 074336 

074336 


9350 074354 


;BR, IF OK 
ERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 


sLOOP IF SELECTED 


TRAP 
sSET UP DRIVE NUMBER 
s25-APR-83 REV B - TURN OFF BUFFERING 
sSUBROUTINE NEEDS PACKET 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COR: ISSUED OK 


s SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC reso 


"WORD 
- WORD 
sLOOP IF SELECTED 
TRAP 
T SIZE OF TRANSFER 
Rite yg a CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sCLEAR COUNTER 
sSET DROP DEAD COUNTER VALUE 


62..€PCD- 
tease 
a 
-22(PC) 

20 


BUMP DROP DEAD COUNTER 

BR, IF THERE IS STILL TIME 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

ERROR COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
WORD 609 

— WRT 

“WORD © PKTSSR 


sLOOP IF SELECTED vs 
CsCLPi 


sGET FIRST COUNTER 
sGET SECOND COUNTER 





Bi 
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9351 


074360 


S2 074362 


06 
005237 002214 


104403 
023727 002214 


10340, 
004737 017312 


000017 


350$: 


999$: 


3° 


CMP sR, R2 :25-APR-83 REV B - COMPARE €M 
BLE 3008 BR, IF VALUES ARE CORRECT (OK) 
INC FATFLG RROR COUNT 
ERRHRD ERRNO-TSGNAS.EXPREC —_, TAPE NOT AT CORRECT SPEED 

. WORD 
CKLOOP ;LOOP IF SELECTED ‘ 

TRAP 
ENDSUB 

L10071: 

TRAP 
CMP ss FATFLG, #15. 11S ERROR COUNT AT 25 
BLO - 999% iBR, IF LESS THAN 25 
JSR —- PC, CKDROP ¥ To DROP THE UNIT 


; 
sTEST 8, SUBTEST 2 


THIS TEST Mae RL THAT “cco BUFFERING, USED FOR WRITE DATA 
AND READ NEXT C TES PROPERLY 


OMMANDS, OPERA PROPERLY AND IS 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 


),_1IT AD 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE T 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE SO HAS 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT — OFTERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED 
1. THE TAPE IS REWOUND. 


2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
CVIA WRITE CHARACTERISTICS COMMAND). 


3S. AN a RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


4. THE PROGRAM DELAYS FOR A ie y -< eeaad TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST 


> & ehh. DATA ae WITH A BYTE Coe LESS THAN 3.5K, 


IS ISSUED, AND THE PROGRAM COUNTS, IN A WATT LOOP, THE 
TIME IT TAKES OR RECEIVE COMMAND TERMINATION. THIS 
SHOUL ULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 


6. BUFFERING IS ENABLED. 


SEQ 0208 
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SEQ 0209 
TEST 8: RECORD BUFFERING 
9404 3 ¥s WRITE DATA_COMMAND IS AGAIN ISSUED, WITH my SAME 
9405 $ BYTE COUNT OUNT AS THAT USED “PREVIOUSLY One +The 
Sone 8 COMPLETION IS AGAIN MEASURE 
; 
3 8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
3 BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
9410 3 TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
rete! : THAN THAT MEASURED FOR THE BUFFERED CASE. 
H 
9413 : 9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
9414 3 RECORD OFF gt ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
9415 ; THE RANGE 20 THROUGH 3.5K. 
9416 ; 
9417 ; 
9418 ; 
9419 hg 
9420 074420 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
074420 T8.2: 
074420 104402 TRAP C$6SuUB 
9421 074422 004737 100720 JSR PC, T36REST ;SET COMMAND PACKET 
9422 074426 004737 101012 JSR PC, T36RT2 3SET UP OTHER COMMAND PACKET 
9423 074432 004737 101054 JSR PC, T36RT3 sSET UP OTHER COMMAND PACKET 
9424 074436 012737 176750 075712 MOV #65000. » 136DLY 3SET UP Oe eR COUNTER 
9425 074444 005037 075706 CLR T36CNT EN CONT 
9426 074450 004737 016104 10$: JSR PC ,SOF INIT OO INI ites ON CONTROLLER 
9427 074454 103426 BCS 20$ ;BR IF INIT WAS OK 
9428 074456 DELAY 250 sDELAY ABOUT .25 SEC 
074456 012727 000250 MOV 9250,(PC)- 
074462 000000 . WORD 
074464 013727 002116 MOV L$DLY.CPC)- 
074470 000000 ; -WORD O 
074472 005367 177772 DEC -6(PC) 
074476 001375 BNE .-4 
074500 005367 177756 DEC -22(PC) 
074504 001367 BNE --20 
9429 074506 005337 075712 DEC T360LY sBUMP COUNTER 
9430 074512 001356 BNE 10$ ;BR, IF COUNTER NOT DONE 
9431 074514 005237 002214 INC FATFLG 3E) OUNT 
9435 074520 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
36 074522 ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
074522 104455 TRAP CSERDF 
074524 001453 -WORD 811 
074526 003650 -WORD SFIERR 
074530 012144 -WORD SFIMSG 
9437 074532 013737 002174 075560 203: MOV UNITN, T36D0SW sSET UP DRIVE NUMBER 
9438 074540 052737 000040 075560 BIS BITS, T360SW 3 TURN ON HIGH = 
9439 074546 012704 075540 MOV OT36PACKET ,R4 sSUBROUTINE NEEDS PACKET 
9440 074552 004737 010742 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
9441 074556 103407 BCS 25% 3;8R, IF COMMAND ISSUED OK 
9442 074560 005237 002214 INC FATFLG 3 
9446 074564 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9447 074566 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC he 
074566 1 CSERHRD 
074570 001454 ” 812 
074572 005054 .WORD WRTMSG 
074574 012144 WORD SFIMSG 


9448 074576 25%: CKLOOP sLOOP IF SELECTED 
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TEST 8: RECORD 


9449 07 
SO 


9496 


074576 


BUFFERING 
004787 
737 011126 
103407 
010004 
005237 002214 
104456 
001455 
077121 
012156 
013701 075570 
010102 
052702 000002 
020102 
001406 
005237 002214 
1044 
001456 
076615 
01 
1 
013737 002174 
052737 000030 
012704 075540 
004737 010742 
103407 
005237 002214 
010001 
104456 
001457 
012144 
012737 003720 
013737 003120 
012737 140005 
012704 075660 
010465 000000 
004737 016360 
016501 000002 
012702 000200 
102 
001406 
37 002214 
104456 
001460 
005111 
012156 
104406 


075560 
075560 


075666 
075662 
075660 


30$: 


40$: 


50$: 


60$: 


CKLOOP 


PC, REWIND 
30$ 


RO,R4 
FATFLG 
ERRNO, T36RWN, PKTSSR 


T36BFR+6,R1 
$81T1,R2 
R1,R2 


40$ 
FATFLG 
ERRNO , T36B0T , EXPREC 


SO 
4 ATFLG 


TSSR(RS),RI 
@SSR ,R2 
R1,R2 


F Cae 
ERRNO, WRTERR , PKTSSR 


TRAP CSCLP1 
;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
;SET UP REWIND PACKET ADDRESS 
;ERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP C$ERHRD 


-WORD 813 
«WORD T 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP C$CLP1 
eee UP _XxSTO 
EXPECTED 
iSET BOT BIT IN EXPECTED 
sD0ES E REC'D 
:BR, IF EQUAL (OK) 
4 RROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 6814 
-WORD T36B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP C$CLP1 
sSET UP DRIVE NUMBER 
325-APR-83 REV B - TURN ON THE BUFFERING 
;SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
; 
sSAVE_ CONTENTS OF TSSR 
sWRITE CHARACTERISTISC Ss 
CS$ERHRD 
"WORD 15 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CSCLP1 
sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 
;WRITE ig ae CVvC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
TISSUE COMMAND 
iWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
ERROR C 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
- WORD 16 
- WORD TERR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


SEQ 0210 


El 
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TEST 6: RECORD BUFFERING 
9497 075020 012737 000005 


9498 075026 
075026 012727 000001 
000000 
002116 


177772 
177756 


075712 
9500 075062 001361 . 
75064 


075712 


002222 


075666 
075660 


075712 


000000 
013727 
000000 


075712 
000200 


002214 


010742 
002214 


75$: 


80$: 


90$: 


100$: 


MOV 
DELAY 


aes » T36DLY 


R4, TSOBCRS) 
TSSRCRS), Ri 


90$ 
Seen 


morni® 
ERRNO , WRTMSG, SFIMSG 


SE@ 0211 


s25-APR-83 REV B - DELAY FOR TAPE TO STOP 
325-APR-83 REV B - DELAY ROUTINE CALL 
MOV #1,(PC)- 
. WORD 
MOV LS$OLY,(PC)- 
. WORD 
DEC “ore 
BNE 
DEC “23¢°c) 
BNE -20 


OUNTER DOWN 
sBR, IF MORE DELAY TO GO 


31S IT A NEW MICROCODE? 
3NO 

;YES 

3SET SIZE OF TR 


ZE ANSFER 
oe DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


+. a COUNTER 
T DROP DEAD COUNTER VALUE 

s ISSUE COMMAND 

sGET TSSR CONTENTS 

sCHECK FOR SSR 

BR, IF SSR IS S 

sBUMP CYCLE COUNTER 

3 R OF LOOPS DOWN 
MOV #1,(PC)- 
. WORD 
MOV L$DLY,CPC)- 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 


:BUMP DROP DEAD COUNTER 
;BR, IF THERE IS STILL TIME 
;SET ee EXPECT ED 


sARE T 
;BR, IF OK 
ERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
\WORD 817 
"WORD  T36WDE 
“WORD PKTSSR 


sLOOP IF SELECTED 


TRAP C$CLP1 
sSET UP DRIVE NUMBER 
s25-APR-83 REV B - ene OFF BUFFERING 
sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
sBR, COMMAND ISSUED OK 


sERROR C 
s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC wy 
sie 


Fi 
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TEST 8: RECORD 


9537 


BUFFERING 


075710 
012727 000001 
000000 
013727 002116 
000000 

177772 
177756 
005337 075712 
012702 000200 
020 


005237 002214 


104406 
013701 075706 
013702 075710 


3406 
005237 002214 


023727 002214 
004737 017312 
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075666 
075660 


075712 


000017 


110$: 


120%: 


130$: 


140$: 


300$: 


#3490., veees 


1000, .360 
TSSRCR5), Ri 


130$ 
—— 


T360LY 
120$ 
@SSR ,R2 
R1,R2 


140$ 
FATFLG 


ERRNO, WRTERR,PKTSSR 


T36CNT,R1 
T36CNU,R2 
R1,R2 


FATFLG 
ERRNO 


FATFLG,@15. 
PC, CKDROP 


sLOOP IF SELECTED 


sSET SIZE OF TRANSFER 
sWRITE pat, ank 34 
sSET UP R 


CLEAR C 


BR, IF SSR I 


S SET 
‘BUH CYCLE pap 
sCUT LOOPS DOWN 


NUMBER OF 


sBUMP_DROP DEAD COUNTER 
IF yt STILL TIME 


TARE THEY EQUAL 
OK 


iBR, IF 


sERROR COUNT 
:;TSSR INCORRECT AFTER WRITE DATA 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


sLOOP IF SELECTED 


sGET FIRST COUNTER 

sGET SECOND COUNTER 

s25-APR-83 REV B - COMPARE EM 
3BR, If VALUES ARE CORRECT (OK) 


a ERROR COUNT 

;TAPE NOT AT CORRECT SPEED 
TRAP 

. WORD 

WORD 

. WORD 


TRAP 


sLOOP IF SELECTED 


:IS ERR 


. WORD 
. WORD 
TRAP 


1_ COMMAND 
ET ADDRESS 


OUNTER 
sSET DROP DEAD COUNTER VALUE 
OMMAND 


AP 

OUNT AT 25 
ORY IF LESS THAN 25 
Y TO DROP THE UNIT 


SEQ 0212 
WRTMSG 
SFIMSG 
CsCLP1l 


#1,(PC)- 
L$DLY,(PC)+ 
°6cec) 
“23¢ec) 

-20 


Gl 
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SEQ 0213 
TEST 8: RECORD BUFFERING 
9577 ; 
9578 075516 004737 016566 JSR PC, TSTLOOP 00 We NEED TO ITERATE TEST 
9579 075522 103002 BCC 163$ NO LOOP REQUIRED 
9580 075524 000137 073330 JMP T36LO0P ORECUTE AGAIN 
9581 075530 163$: 
9582 075530 EXIT TST ;ALL DONE THIS TEST 
075530 104432 TRAP C$EXIT 
075532 003344 .WORD 110070-. 
958 3° 
9384 ;LOCAL STORAGE FOR THIS TEST 
958 | an 
9587 075540 . =<, #10>€177770 ee 
9589 075540 T36PACKET : ;COMMAND PACKET FOR TEST 
9590 075540 100004 .WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH , ACK 
9591 075542 075550 “WORD T36DATA sADDRESS OF CHARACTERISTICS BLOCK 
9592 075544 000000 7WORD O 
9593 075546 000012 “WORD 10. ;STARTING VALUE OF BLOCK SIZE 
9594 075550 T36DATA: }CHARACTERISTICS DATA BLOCK 
9595 075550 075562 .WORD T36BFR ;ADDRESS OF MESSAGE BUFFER 
075552 ‘WORD 0 
9597 075554 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
9598 075556 000000 "WORD 0 
9599 075560 000000 T36DSW: .WORD 0 ;SELECT DRIVE 0 
3600 075562 T36BFR: .BLKW 25. ;MESSAGE BUFFER 
960. H 
3602 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
960 a 
9605 075650 .*<,10>€177770 
9607 075650 T36PK2: 
9608 075650 100006 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
9609 075652 075670 "WORD T36BF2 ;ADDRESS OF SELECT BLOCK DATA 
9610 075654 000000 “WORD O 
gel 075656 000006 WORD 6. ;SIZE OF DATA PACKET 
9616 075660 T36PK3: 
9617 075660 100005 .WORD 100005 ;REREAD COMMAND, AND ACK 
9618 075662 T36RB: 
9619 075662 003120 T36WB: .WORD FREE sADDRESS OF WRITE BUFFER 
075664 000000 ‘WORD 0 
9621 075666 000000 ™36SZ: :WORD 0 ;SIZE OF BUFFER (EXTENT) 
9622 [EVEN 
9623 3 
9624 ; 
9625 i 
9626 075670 36BF 2: 
9627 075670 010 T36BS0: .BYTE 10 :BSELO AREA 
9628 075671 200 T36B8S1: .BYTE 200 ;BSEL1 AREA 
075672 000000 ™36S2 0 3SEL 2 AREA 
30 075674 000000 T36S3: :WORD 0 ;DATA AREA 
9631 3 
9632 3 
9633 .EVEN 
9634 ;TAPE MOTION PACKET COMMAND VALUES 
9636 075676 100205 T36RN: .WORD 100205 ;REREAD DATA (NEXT) 
9637 075700 100605 T36WOR: .WORD 100605 sREREAD DATA RETRY 


9638 075702 102205 T36CON: .WORD 102205 sWRITE CONTINOUS 


Hi 
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9639 


075704 


075706 
075710 


9644 075712 


177777 

000000 

000000 

000000 
111 155 
124 141 
124 123 
122 105 
120 117 
122 111 
124 123 
111 1 
122 105 
124 123 
124 141 
127 122 
122 1 
124 123 
122 145 
122 101 
124 123 
104 162 
124 123 
124 123 
103 126 
124 123 
127 122 
122 145 
122 145 
122 145 
122 145 
127 122 
124 123 
124 123 
124 123 
104 141 
122 145 


012701 075540 

1 100004 
012721 075550 
005021 


. WORD 


177777 sEND OF DATA 

ie) sTAPE TIMER COUNTER STORAGE AREA 
te] s TAPE TIMER COUNTER STORAGE AREA 
0 sDELAY COUNTER 


sLOCAL TEXT MESSAGES FOR TEST 


TST3610: : 


'Imor r Tape Controller Bufferi Speed’ 
‘Tape Position Incorrect Sher REREAD Previous (OPP=1)' 
'TSSR Incorrect After READ DATA Command’ 
AD Previous (Space Reverse, Read Forward) Command Failed’ 
‘POSITION (Space Command) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
‘TSSR Not Bag After Illegal Mode Bits Set’ 
ReRERS cee By Anda dl To Set ILC Bit In XSTO' 


—. Rot yon. Oh reac ERIE DATA Command’ 
‘RET Not At BOT After ie Commene nay Not Set In XSTO)’ 
TE DATA RETRY’'S Erase Tape No Lora& 
READ DATA OVER EOT GAVE NO Tape STATUS ALERT’ 
TSoR Not Correct After REREAD COMMAND Re ject’ 
‘Rewind CPOSITION) Command Not Accepted’ 
‘RAM Error, Correct Data Pattern Not In Ram’ 
"TSSR Init. Failed After REREAD COMMAND’ 
‘Drive 7 Select Failed To Set “OFL" In TSSR’ é 
TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
TSSR Not Correct After REREAD DATA Command’ 
‘CVC r~ Didn''t Reset VCK In Mes: Buffer’ 
‘TSBA t Correct After REREAD DATA Command’ 
‘WRITE Notes tsTen MEMORY Command Not Accepted (RAM Read)’ 
"Reading Long Record Failed To Set RLL Bit In XSTO’ 
"Reading L Record Failed To Set RLS Bit In XSTO’ 
* weds pony Byte Count Incorrect After Short Record ooee, 
ogi"R Long Record Failed To Give T Status Alert 
‘WRETE ATA RETRY, At First Record, Failed To Set RIB Bit XST3’ 
TSSR Not Correct After SPACE RECORDS Command’ 
‘Teer Not Correct After WRITE DATA a Aa Into BOT’ 
*TSSR Not Correct After WRITE DATA RETR 
‘Data Conpere creer. Date Read From Tope Not Equal To Written’ 
-ASCIZ ecord Buffe ering’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T36REST: 


sSAVE_THE REGISTERS 


@T36PACKET ,R1 sSTART OF THE PACKET 

#100004 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
OT3EDATA, (Ri)- sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)- sEXTENDED ADDRESS 


SEQ 0214 


Ii 
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SE@ 0215 
TEST 8: RECORD BUFFERING 


9696 100742 012721 000012 MOV #10. ,(R1)- i SIZE OF DATA BLOCK IN BYTES 
9697 100746 012721 075562 MOV eT SGBFR, (R1)- ;ADDRESS OF MESSAGE BUFFER 
9698 100752 005021 CLR cri 

99 100754 012721 000024 MOV $20) *(R1)- ;LENGTH OF MESSAGE BUFFER 
9700 100760 005021 CLR (R1)- 
9701 100762 012711 000000 MOV 60, (R1) ;SELECT DRIVE ZERO 
9702 100766 012702 000030 ' MOV $24. ,R2 ;NUMBER OF LOCATIONS TO BE CLEARED 
9703 100772 012762 177777 O75562 64%: MOV 0177777, T36BFRC(R2) :ALL ONES) TO MESSAGE BUFFER 
9704 101000 005742 TST -(R2) NEXT LOCATION 
9705 101002 022702 000000 CMP #0 ,R2 T END OF LOOP YET 
9706 101006 001371 BNE 643 IKEEP GOING UNTIL DONE 
9707 101010 000207 RTS PC ;RETURN 
9709 101012 T36RT2: 
9710 101012 SAVREG SAVE THE REGISTERS 
9711 101016 012701 075650 MOV OT36PK2,R1 ;START OF THE PACKET 
9712 101022 012721 100006 MOV #100006, (R1)- ;WRITE SUBSYSTEM MEM. WITH ACK, 
9713 101026 012721 075670 MOV $T36BF2,(R1)- ;ADDRESS OF DATA BLOCK 
9714 101032 005021 CLR (R1)- ;EXTENDED ADDRESS 
9715 101034 012721 000006 MOV $6. ,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 
9716 101040 005021 CLR (Ri)- 
9717 101042 012701 075670 MOV $T36BF2,R1 ;POINT TO DATA SEL AREA 
9718 101046 005021 CLR (R1)- 
9719 101050 005011 CLR (R1) 
9720 101052 000207 RTS PC ; RETURN 
9721 101054 T36RT3: 
9722 101054 SAVREG ;SAVE REGISTERS 
9723 101060 012701 075660 MOV $T36PK3,R1 ;SET UP POINTER ADDRESS 
9724 101064 005021 CLR (R1)- iC SP 
9725 101066 005021 CLR (R1)- ;ADDRESS OF DATA BLOCK 
9726 101070 005021 CLR (R1)- ;EXTENDED ADDRESS 
9727 101072 005011 CLR (R1) :SIZE OF DATA TRANSFER BLOCK 
9728 101074 000207 RTS P ;RETURN 
9729 101076 ENDTST 

101076 L10070: 
101076 104401 TRAP C$ETST 
9730 .SBTTL TEST 9: FUNCTION TIMING 
3733 1 
b 

9733 ;THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
9734 ;RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
9735 ;AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
9736 ;SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A 
9737 ;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE 
9738 sTAPE IN HIGH GH-SPEED MODE. THIS TEST CAN ONLY BE RUN I 
9739 ;REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
9740 TC MING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
9741 ;DIFFERENT TEST RECORD LENGTHS. 
9742 3 
9743 3 
9744 3- 
9745 101100 BGNTST ie 
9746 101100 012737 006356 002172 MOV GEPRT1 EPRTSW ;PRIMARY ERROR Ne SSAGE 
9747 101106 004737 017404 JSR KT TURN KT OFF 
9752 101112 012700 105323 MOV AT a RO sASCII neseace T TO IDENTIFY TEST 


9753 101116 004737 016620 JSR PC, TSTSETUP s00 INITIAL TEST SETUP 
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SEQ 0216 
TEST 9: FUNCTION TIMING 
9754 101122 012737 000005 002210 MOV #5, LOOPCNT sPERFORM 5 ITERATIONS 
3735 101130 005037 102366 CLR T37CNT ;CLEAR TAPE RECORD COUNTER 
3° 

9757 ; 

9758 ;TEST 9, SUBTEST 1 

9759 ; 

9760 3 

9761 3 

9762 ; 

9763 t- 

9764 

9765 101134 T37LOOP: 

9766 101134 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
101134 79.1: 
101134 104402 TRAP C$BSUB 

9767 101136 005037 002216 CLR INTRECV sINTERRUPT INDICATOR 

9768 101142 005037 102366 CLR T37CNT ;TIMER FOR WRITE DATA SPACING 

9769 101146 005037 102370 CLR T37CNU ;TIMER FOR WRITE DATA RETRY SPACING 

9770 101152 004737 105344 JSR PC, T37REST ;SET COMMAND PACKET 

9771 101156 004737 105436 JSR PC, T37RTO ;SET UP OTHER COMMAND PACKET 

9772 101162 004737 105500 JSR ©C T37RT3 ;SET UP OTHER COMMAND PACKET 

9773 101166 012737 176750 102372 MOV 65000. , T37DLY ;SET UP DELAY COUNTER 

9774 101174 004737 016104 10$: JSR PC, SOFINIT ;00 INITIALIZE ON CONTROLLER 

9775 101200 103426 BCS 20$ ;8R IF INIT WAS OK 

9776 101202 DELAY 250 ;DELAY ABOUT .25 SEC 
101202 012727 000250 MOV $250, (PC)+ 
101206 000000 .WORD O 
101210 013727 002116 MOV LSOLY,CPC)- 
101214 000000 . WORD 
101216 005367 177772 DEC -6(PC) 
101222 001375 BNE »- 
101224 005367 177756 DEC -22(PC) 
101230 001367 BNE .-20 

9777 101232 005337 102372 DEC T37DLY ;BUMP COUNTER 

9778 101236 001356 BNE 10$ ;8R, IF COUNTER NOT DONE 

9779 101240 005237 002214 INC FATFLG ;ERROR COUNT 

9783 101244 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

9784 101246 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NoT alk 
101246 104455 CSERDF 
101250 001605 THORD 901 
101252 003650 [WORD SFIERR 
101254 012144 .WORD SFIMSG 

3785 101256 013737 002174 102240 20$: MOV UNITN, T37DSW ;SET UP UNIT NUMBER 

9787 101264 012704 102220 MOV OT37PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

9788 101270 004737 010742 JSR PC, WRTCHR TISSUE WRITE CHARACTERISTICS 

9789 101274 103407 BCS 23$ :8R, IF COMMAND ISSUED OK 

9790 101276 005237 002214 INC FATFLG 

9794 101302 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

9795 101304 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
101304 104456 CSERHRD 
101306 001606 "MORO $02 
101310 005054 “WORD WRTMSG 
101312 012144 .WORD  SFIMSG 

9796 101314 23%: CKLOOP ;LOOP IF SELECTED 
101314 104406 TRAP CSCLP1 


9797 101316 004737 011126 JSR PC, REWIND sCALL TAPE REWIND COMMAND 


K1 
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TEST 9: FUNCTION TIMING 


SEQ 0217 


9798 101322 103411 BCS 30$ :8R, IF NO PROBLEM 

9799 101324 016501 000002 MOV TSSRCRS), R1 ;GET TSSR CONTENTS 

9800 101330 010004 MOV RO,R ;GET PACKET ADDRESS 

9801 101332 005237 002214 INC PATEL sERROR COUNT 

9805 101336 ERRHRD ERA. T37RWN,PKTSSR ;REWIND NOT ACCEPTED 
101336 1 56 TRAP CSERHRD 

001607 .WORD 903 

101342 103545 "WORD T37RWN 
101344 012156 “WORD PKTSSR 

9806 101346 30$: CKLOOP ;LOOP IF SELECTED 
101346 104406 TRAP = C$CLP1 

9807 101350 013701 102250 MOV T37BFR+6,R1 ;PICK UP XxSTO 

9808 101354 010102 MOV R1,R2 ;SET UP EXPECTED 

9809 101356 052702 000002 BIS @BiT1,R2 ;SET BOT BIT IN EXPECTED 

9810 101362 020102 CMP R1,R2 ;D0ES EXP = REC'D 

9811 101364 001406 BEQ 403 iBR, IF EQUAL COK) 

9812 101366 005237 002214 INC FATFLG RROR COUNT 

9816 101372 ERRHRD ERRNO, 1T37B0T,EXPREC ; TAPE note AT BOT AFTER REWIND 
101372 104456 TRAP §CSERHRD 
101374 001610 .WORD 904 
101376 103241 "wORD T37B0T 
101400 015604 [WORD €XPREC 

9817 101402 40$: CKLOOP ;LOOP IF SELECTED 
101402 104406 TRAP —s C$CLP1 

9818 101404 012703 000144 MOV #100. ,R3 :NUMBER OF RECORDS TO BE WRITTEN 

9819 101410 013737 003120 102342 MOV FREE, 137WB ISTARTING WRITE BUFFER ADDRESS 

9820 101416 012737 140005 102340 65%: MOV 140005 , T37PK3 ‘WRITE DATA, ACK, cvcel COMMAND 

9821 101424 012704 102340 MOV OT37PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 

9822 101430 012737 001130 102346 MOV #600. ,137SZ SET UP RECORD SIZE IN PACKET 

9823 101436 010465 000000 MOV R4, TSOBCRS) ;ISSUE COMMAND 

9824 101442 004737 016360 JSR PC WAITF {WAIT FOR SSR TO SET 

9825 101446 016501 000002 MOV TSSR(RS), AL :GET TSSR CONTENTS 

9826 101452 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

9827 101456 020102 CMP R1,R2 ;ARE THEY EQUAL 

9828 101460 001406 BEQ 703 :8R, IF OK 

9829 101462 005237 002214 INC FATFLG ERROR COUNT 

9833 101466 ERRHRD ERRNO, T37WDC,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 

1 TRAP C$ERHRD 

101470 001611 
101472 104101 "WORD T37WOC 
101474 012156 "WORD PKTSSR 

9834 101476 70$: CKLOOP ;LOOP IF SELECTED 
101476 104406 TRAP = C$CLP 1 

9835 101500 005303 DEC R3 sDEC RECORD COUNTER 

9836 101502 001345 BNE 65$ :BR, IF MORE RECORDS TO WRITE 

9837 101504 004737 011126 JSR PC , REWIND ;CALL TAPE REWIND COMMAND 

9838 101510 103411 BCS 130$ ; IF NO PROBL 

9839 101512 016501 000002 MOV TSSRCRS), R1 :GET TSSR CONTENTS 

9840 101516 010004 MOV RO,R :GET PACKET ADDRES. 

9841 101520 005237 002214 INC FATELG P OUNT 

9845 101524 ERRHRD ERRNO, T37RWN,PKTSSR ;REWIND NOT ACCEPTED 
101524 104456 TRAP CSERHRD 
101526 001612 .WORD 906 
101530 103545 "WORD T37RWN 
101532 012156 WORD PKTSSR 

9846 101534 130%:  CKLOOP ;LOOP IF SELECTED 


101534 104406 TRAP CsCLPl 


Li 
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SEQ 0218 
TEST 9: FUNCTION TIMING 

9847 101536 013701 102250 MOV T37BFR+6,R1 ;PICK UP XSTO 

9848 101542 010102 MOV R1,R2 3SET UP EXPECTED 

9849 101544 052702 000002 BIS @8iT1,R2 iSET BOT BIT IN EXPECTED 

9850 101550 020102 CMP R1,R2 ;D0ES EXP = REC'D 

9851 101552 001406 BEQ 140$ ;OR, IF EQUAL (OK) 

9852 101554 005237 002214 INC FATFLG RROR COUNT 

9856 101560 ERRHRD ERRNO, 137B0T,EXPREC ; TAPE note AT BOT AFTER REWIND 
101560 104456 TRAP C$ERHRD 
101562 001613 .WORD 907 
101564 103241 "WORD T37B0T 
101566 015604 "WORD EXPREC 

9857 101570 140%: CKLOOP ;LOOP IF SELECTED 
101570 104406 TRAP  C$CLP1 

9858 101572 012704 102340 MOV $T37PK3,R4 #SET UP PACKET ADDRESS 

9859 101576 012737 000037 102342 MOV $31. ,T37RB ;SET UP RECORDS TO SPACE OVER 

9860 101604 012737 140010 102340 MOV #140010, T37PK3 ;ACK,CVC=1, SPACE FORWARD COMMAND 

9861 101612 010465 000000 150$: MOV R4, TSDBCRS) ;ISSUE COMMAND 

9862 101616 005237 102366 152$: INC T37CNT , MER 

9863 101622 DELAY 1 ;DELAY ABOUT 100US 
101622 012727 000001 MOV #1,(PC)- 
101626 000000 . WORD 
101630 013727 002116 MOV LSDLY,(PC)- 
101634 000000 . WORD 
101636 005367 177772 BEC -6(PC) 
101642 001375 BNE ae 

005367 177756 DEC -22(PC) 

101650 001367 BNE .-20 

9864 101652 016501 000002 MOV TSSRCRS),.RI :GET TSSR 

9865 101656 032701 000200 BIT @SSR,R1 CHECK FOR TSSR’S SSR SET 

9865 101662 001755 BEQ 152$ ;KEEP COUNTING UNTIL SET 

9867 101664 012702 000200 MOV OSSR,R2 3SET UP EXPECTED 

9868 101670 020201 CMP R2,Ri ;WAS EVERYTHING OK 

9869 101672 001406 BEQ 160% ;BR, IF ALL IS WELL 

9870 101674 005237 002214 INC FATFLG ;ERROR COUNT 

9874 101700 ERRHRD ERRNO, 137SCF,PKTSSR ;SPACE FORWARD DIDN'T WORK gut 
101700 104456 CSERHRD 
101702 001614 "TORO 908 
101704 105007 "WORD T37SCF 
101706 012156 "WORD PKTSSR 

9875 101710 160%: CKLOOP ;LOOP IF SELECTED 
101710 104406 TRAP = C$CLP 1 

9876 101712 004737 011126 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

9877 101716 103411 BCS 170% ;BR, IF NO PROBL 

9878 101720 010004 MOV RO,R4 ;GET PACKET ADDRESS 

9879 101722 016501 000002 MOV TSSRCRS),R1 :GET STATUS FROM TSSR 

9880 101726 005237 002214 INC FATFL sERROR COUNT 

9884 101732 ERRHRD ERRNO, T37RWN,PKTSSR ;REWIND NOT ACCEPTED 
101732 1 TR CSERHRD 
101 001615 .WORD 909 
101736 103545 "WORD T37RWN 
101740 012156 "WORD PKTSSR 

9885 101742 170%:  CKLOOP ;LOOP IF SELECTED 
101742 104406 TRAP ss C#CL P21 

9886 101744 013701 102250 MOV T37BFR-6,R1 ;PICK UP XSTO 

9887 101750 010102 MOV R1,R ;SET UP EXPECTED 

9888 101752 052702 000002 BIS 981T1,R2 ;SET BOT BIT IN EXPECTED 

9889 101756 020102 CMP R1,R2 ;DOES EXP = REC'D 


M1 
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9890 
9891 
9895 


000000 
013727 
000000 


002214 


002116 
177772 
177756 
000002 


002214 
102366 
102370 
000077 


000077 


002214 


002214 
017312 


000017 


1753: 


300$: 
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175$ 
FATFLG 
ERRNO, T37B0T ,EXPREC 


$T37PK3,R4 
$81. ,T37RB 
#140010, T37PK3 
R4, TSDBCRS) 
TS7CNU 


TSSRCRS),R1 
@SSR,R1 
252$ 

SSR ,R2 
R2,R1 


FATFLG 
ERRNO, T37SCF ,PKTSSR 


T37CNT,R1 
T37CNU.R2 
9000077 ,R1 
#000077 ; R2 
R1,R2 

300 


FATFLG 
ERRNO, T37TIM, EXPREC 


FATFLG,@15. 
999% 
PC, CKDROP 


SEQ 0219 


;8R, IF EQUAL (OK) 
geno COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP C$ERHROD 
‘WORD $10 
“WORD  T37B0T 
"WORD EXPREC 
;LOOP IF SELECTED 
TRAP C$CLP1 
SET UP PACKET ADDRESS 
BET UP RECORDS 70 SPACE OVER 
SACK,CVC=1,SPACE FORWARD COMMAND 
ISSUE. COMMAND 
‘BUMP TIMER 
}DELAY ABOUT 100US 
MOV 1,(PC)- 
_WORD 
HOV. ss LDL, (PC)« 
WORD 
bEC ~6(PC) 
BNE 
DEC “23¢°C) 
BNE =20 
:;GET TSSR 
CHECK FOR TSSR'S SSR SET 
iKEEP COUNTING UNTIL SET 
iSET UP EXPECTED 
tWAS EVERYTHING OK 
HOR. IF MERROR COUNT 
;SPACE FORWARD DIDN'T WORK OUT 
TRAP  C$ERHRD 
‘WORD S11 
“WORD  T37SCF 
“WORD PKTSSR 
;LOOP IF SELECTED 
TRAP —C$CLP1 
:TIME FOR WRITE SPACI 
TIME FOR WRITE RETRY SPACING 
{SETTING UP CONSTANT 
{SETTING UP CONSTANTS 
CHECK FOR DIFFERENCE 
;6R, CK adaaa 
OUNT 
; TIME WAS NOT DIFFERENT ENOUGH 
TRAP C$ERHRD 
\WORD 912 
"WORD ‘T37TIM 
"WORD  EXPREC 
LOOP IF SELECTED 
TRAP C$CLP2 


3<<<eeee<e<Ce<K< END SUBTEST >>>>>>>>>>>> 


0074: 
TRAP CsESuUB 
3IS ERROR COUNT AT 25 
rORe IF LESS THAN 25 
sTRY TO DROP THE UNIT 


Ni 
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004737 016566 JSR PC, TSTLOOP :D0 We NEED TO ITERATE TEST 
10300, BCC 163$ . }BR, IF NO LOOP REQUIRED 
000137 101134 UMP T37L00P + PXECUTE AGAIN 


EXIT TST sALL DONE THIS TEST 
104432 TRAP CSsEXIT 
003306 -WORD 1L10073-. 


}LOCAL STORAGE FOR THIS TEST 
102220 ‘ | =<, 102177770 

TS7PACKET :COMMAND PACKET FOR TEST 
100004 ;WRITE CHARACTERISTICS COMMAND, WITH , ACK 
TS7DATA ADDRESS OF CHARACTERISTICS BLOCK 


10. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
asi sADDRESS OF MESSAGE BUFFER 


. sLENGTH OF MESSAGE BUFFER 
re70Sus se) sSELECT DRIVE 0 

T37BFR: -BLKW 2S. sMESSAGE BUFFER 

;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


, .#<,«10>€177770 


100004 
102230 
000000 
000012 
102242 
000000 


ri 5553 


T37DATA: 


100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
TS78F2 sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


as 3 5558 


oonr 
35 


sSEL 2 AREA 
sDATA AREA 


3 : 
T37S3: 
8 
3 


.EVEN 
sTAPE MOTION PACKET COMMAND VALUES 





Bo 
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TEST 9: FUNCTION TIMING 


9993 


102356 
102360 
102362 
102364 


105344 


100205 
100605 
102205 
177777 


105344 
105350 012701 102220 
105354 012721 100004 


T37RN: 
T37WOR: 
T37CON: 


+370NT: 
T37CNU: 
T37DLY: 


100205 sREREAD DATA (NEXT) 

100605 sREREAD DATA RETRY 

102205 sWRITE CONTINOUS 

177777 sEND OF DATA 

te) sTAPE TIMER COUNTER STORAGE AREA 
te) s TAPE TIMER COUNTER STORAGE AREA 
te) sDELAY COUNTER 


;LOCAL TEXT MESSAGES FOR TEST 


A 
TST37ID: 


3° 


T37WNG: . 
T 


‘Tape Position Incorrect After REREAD Previous (OPP=1)' 
’ TSSR Incorrect After READ DATA Command’ 
"REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
‘POSITION (Space Command) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 
anes. Mode Bits, Failed To Set ILC Bit In XSTO' 
OMMAND Not 


p Prongg 5s 
a Not Correct After ITE DATA RETRY Command,At BOT’ 
Not At BOT After — am yy cout Not Set ‘in xSTO)' 
TE DATA RETRY''S Erase T ape Not TATGS 
‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
'TSSR Not Correct After REREAD COMMAND Reject’ 
‘Rewind (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Date Pattern Not In Ram’ 
‘TSSR Init. Feiled After REREAD COMMAND’ 
‘Drive 7 Select Failed To Set “ee In TSSR’ ? 
‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
"TSSR Not Correct After REREAD DATA Command’ 
m3 Set, Didn''t Reset VCK In Me Buffer’ 
TSBA Not Correct After REREAD DATA , 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading ae Record Failed To Set RLL Bit In XSTO’ 
"Reading L Record Failed To Set RLS Bit In XSTO’ 
dA pay By .. ao | Incorrect After Short Record Read’ 


oging | ong Record Failed To Give T Status Alert’ 
URETE TA TRY, At First Record, Failed To. Set RIB Bit XST3' 
SSR Not Correct After SPACE RECORDS 

‘Teer Not Correct After WRITE DATA ~ taf Into BOT’ 

*TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Dete porgere Error, Detea Read From Tape Not Equal To Written’ 
-ASCIZ ' tion Timing’ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T37REST: 
SA 


MOV 
MOV 


bots THE REGISTERS 
@TS7PACKET ,R1 sSTART OF THE PACKET 
#100004, (R1)- sWRITE SUBSYSTEM MEM. WITH ACK, 


SEQ 0221 
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0050 105360 
105364 


105524 


012721 
005021 


102230 


000012 
102242 
000024 


000030 
177777 


102340 


MOV 
102242 64%: MOV 


MOV CRS oCR1)- 


(R1)- 
a1s76rn, (R1)- 


. R2 
4177777, T37BFRCR2) 
-(R2) 


soon ss OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 

sSELECT DRIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
PALL ONES TO MESSAGE BUFFER 


T END OF LOOP YET 
IKEEP GOING UNTIL. DONE 
sRETURN 


sSAVE_THE wee 
ART OF THE PACKET 


sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


s SAVE REGISTERS 
sSET UP POINTER ADDRESS 


} COMMAND SP 

+ ADDRESS OF DATA BLOCK 

s EXTENDED 

:SIZE OF DATA TRANSFER BLOCK 
RETURN 


i.10073: 


TRAP CSsETST 


MACROS 
-TABLES. THE 
TIONS BUT ARE 


TST ae LOCATION 

CMP #0,R2 

BNE 64$ 

RTS PC 
T37RTe2: 

SAVREG 

MOV @T37PK2,R1 isT 

MOV #100006 ,,(R1)- 

MOV OT37BF2,(R1)- 3 

CLR CR1)- ;EXTENDED 

MOV 6.,CR1)-« 

CLR CRi)- 

MOV @T37BF2,R1 

CLR CR1)- 

CLR CR1) 

RTS PC sRETURN 
T37RT3: 

SAVREG 

MOV @T37PK3,R1 

CLR (R1)- 

CLR CR1)- 

CLR CR1)- 

CLR (R1 

RTS PC 3 

ENDTST 

ENDMOD 

TITLE TSV6 - PARAMETER CODING 

TSV6 

TSV6: : 

.SBTTL HARDWARE PARAMETER CODING SECTION 
ae 
3; THE HARDWARE PARAMETER CODING SECTION CONTAINS 
3 THAT ARE USED BY THE SUPERVISOR TO BUILD P 
3 MACROS ARE NOT EXECUTED AS MACHINE INST I 
3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
3 ALLOW ba SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3 WITH THE OPERATOR. 
gee 


SEQ 0222 
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SEQ 0223 
HARDWARE PARAMETER CODING SECTION 
105524 000010 .WORD L10075-L$HARD/2 
30118 105526 L$HARD: : 
10119 105526 GPRMA HPM1,0,0,160010,177776, YES :GET TSBA/TSDB REGISTER ADDRESS. 
105526 000031 .WORD TSCOOE 
105530 105546 "WORD -HPM1 
105532 160010 ;WORD  TS$LOLIM 
105534 177776 "WORD  T$HILIM 
10120 105536 GPRMA HPM2,2,0,0,776, YES :GET VECTOR ADDRESS. 
105536 001031 WORD  TSCODE 
105540 105602 : WORD 
105542 000000 "wORD  T$LOLIM 
105544 000776 "WORD T$HILIM 
10121 ;GPRMD HPM3,4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 
10122 105546 
-EVEN 
105546 L1007S: 
10123 105546 104 105 126 HPM1: .ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ' 
10124 105602 1li 116 124 HPM2: .ASCIZ ‘INTERRUPT VECTOR 
10125 105626 111 116 124 HPM3:  ‘ASCIZ ‘INTERRUPT PRIORITY ' 


Ee 
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SOFTWARE PARAMETER CODING SECTION 


SEQ 0224 


10128 .SBTTL SOFTWARE PARAMETER CODING SECTION 
18186 
see 
10131 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
101 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
10133 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
10134 s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
10135 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
19138 ; WITH THE OPERATOR. 
g°e 

10138 105656 BGNSF T 

105656 000003 .WORD L10076-L$SOFT/2 

105660 L$SOFT:: 
10139 ; GPRML 3s SPM1,0,-1., YES ; GET TRANSPORT TEST FLAG. 
0140 105660 GPRML SPM4,2,-1, YES ; GET ITERATION CONTROL. 

105660 001130 .WORD TS$CODE 

105662 105716 .WORD SPM4 

105664 177777 .WORD -1 
10141 : GPRMD SPM6,4,0,7777,0,7777, YES ; GET LOCAL ERROR LIMIT 
10142 3 GPRMD  SPM7,6,0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
10143 105666 ENDSFT 

.EVEN 

amean 105666 10076: 
10145 105666 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ' 
10146 105716 111 116 110 SPM4: .ASCIZ ‘INHIBIT ITERATIONS ‘ 
10147 105746 120 105 122 SPM6: -ASCIZ ‘PER TEST ERROR LIMIT ‘' 
10148 105776 120 105 122 SPM7: .ASCIZ ' T ERROR LIMIT ' 
10149 .SBTTL PATCH AREA 
10159 
10151 3 
10152 ; FINALLY A GENEROUS PATCH AREA. 
10135 


: AND AN ADJUSTMENT TO ACCOUNT yy Pirates BIT7" HACK 
; 


10155 DESCRIBED IN “SUPPRG.MEM” (FOR 
10156 8 
10157 
10158 106026 PATCH: : 
10159 
10160 106026 .BLKW 32. 
10161 
10163 106400 -*.!'377+1 
10165 106400 LASTAD ;SET LAST USED ADDRESS. 
106400 000000 . WORD te] 
106402 000000 » WORD 0 
106404 L$LAST:: 
10166 106404 
10167 000001 END 


FO 
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Symbol table 
ADDSSR 012236 G 
ADR = 000020 G 
AMBTSS 006715 
ASSEMB= 000010 
A1716 = 000003 
BADDAT 003152 G 
BADSSR 016010 G 
BOVPCR= 177520 G 
BENB 002224 G 
BIE = 040000 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
IT = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
IT = 000100 G 
BITO7 = 000200 G 
BITOB = 000400 G 
BITOS = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BIT8 = 000400 G 
BIT9 = 001000 G 
BOE = 000400 G 
BRINIT 004455 
BSELO = 000000 
BSEL1 = 000001 
CHKAMB 016154 
CHKMAN 10 
CHKTSS 
CKDROP 017312 
CKEMAX 7212 
CKMSG 011470 G 
CKMSG2 011610 G 
CKRAM 011224 G 
CKRAM2 011334 G 
021274 G 
017770 
CONFIG 017360 
COUNT 304 
CSRADD 2200 G 
CTAB 003160 
CTABE 003172 G 
CTABM 003160 G 


CS$RPT = 


306 G 


011742 
002212 G 


QHHAAG © 


geet 


a 


= 


WDAAAAAAANANANAAAANAAAT 
«4 


26 28a SeahSeae 


vn 
Sl 
~ 
m 
w 
~ 


GDDAT 


003122 G 
004115 
000015 
000020 
000040 
000007 
000016 


INTFLA 


mim DD 
o 
? se 


3agzaecee 


ang 


3452 


CMH HHH HH HHH HHH HH RH He Hee 
« 


get tttrt titted 
+ 


° 
~ 
é 
an 


: 
8 
DAA 


SEQ 0225 


Ge 
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SEQ 0226 

Symbol table 
LOOPFL 003156 G L10002 005764 L10074 102162 O$GNSW= 000001 PUNIT 022320 
LOT = 000010 G L10003 012154 L10075 105546 O$POIN= 000001 PW.D11= 000021 
L$ACP 002110 G L10004 012172 L10076 105666 O$SETU= 000000 PW.013= 000022 
L$APT 002036 G L10005 012210 MEMADD 014064 G PASRPT 022070 PW.D22= 000020 
L$AU 022 G Li 012216 MEMCK 021312 G PATCH 106026 G PW.NOP= 
L$AUT 002070 G L10007 012234 MENASC 020557 PATDAT 020340 PW.NO1= 000023 
L$AUTO 022572 G L10010 012 MENERR 020 PC.ERA= 002400 PW.RDE= 000024 

002106 G L10011 012276 MENRES 020606 PC.IER= PW.RDR= 000001 
L$CLEA 022652 G L10012 012350 MMVEC = 000250 PC.NOO= 001000 PW.RDS= 000005 
L$Cco 002032 G L10013 012 MSA.FR= PC.REL= PW.RFI= 000003 
L$DEPO 002011 G L10014 013234 MSA.NO= 000000 PC.REW= 000400 PW.WCT= 000006 
L$DESC 003404 G L10015 01 MSA .NR= PKBCNT= 000006 PW.WFI= 000004 
L$DESP 002076 G L10016 014104 MSA.VO= 2 PKHI = PW.WFM= 000007 
L 002060 G L10017 015610 MSGEXP 012254 G PKLOW = 2 PW.WMI= 000010 
L$DISP 002124 G L10020 015616 00 013174 G PKTADD 007634 PW.WNP= 000011 
L$DLY 002116 G L10021 01 MSGSTA 012460 G PKTFRM 007576 PW.WTR= 000002 
L$DTP 002040 G L10022 015636 UB 014052 G PKTGET 012174 G P.ACK = 1 
L$DTYP 002034 G L10023 01 MS.ATT= PKTMES 012220 G P.CMD = 000037 
L$0U 022464 G L10024 015706 MS.EXT= 000200 PKTRAM G P.CONT= 000012 
L$DUT 002072 G Li 01 MS.RSD= 000001 PKTSSR 012156 G P.CVC = 
L$DVTY 003376 G L10026 016356 MS.RSF= PNT = 1 G P.FMT = 000140 
LSer 002052 G 10030 022316 MS.RST= 000010 PRAMPK 014106 P.FORM= 000011 
L$ENVI 002044 G L10031 02 186 ooSsSS52 PRASC 014633 P.GETS= 000017 
L$ETP 002102 G L10032 022570 M8189 EXP O1 P.IE = 000200 
L$EXP1 002046 G L10033 022650 = 01 P.INIT= 000013 
LSEXP4 002064 G L10034 022676 NEWPAS 022024 PRBREC 01 P.MODE= 007400 
LSEXPS 002066 G L10035 023140 003110 G PRBTOT 015533 Pp = 020000 
L$HARD 105526 G L10036 0O NOINIT 33 PRBYTE 015232 G P.POSI= 000010 
L$HIME 002120 G L10037 024124 NOINTR 004217 PRI = 002 G P.READ= 000001 
L$ 002016 G Li NOITS 002162 G PRIADD 010240 P.SWB = 010000 
L$HPTP 002022 G L10041 025372 NOMAN PRIAO 010310 P.WRIT= 000005 
L$HW 002150 G L10042 026214 NOMEM 005456 PRIBXO G P.WRTC= 000004 
L$ICP 002104 G L10043 041360 NP.IR = PRIEQU 010140 P.WRTS= 000006 
L$INIT 021572 G L10044 033664 NP .LOO= PRIPKT G Q 002176 G 
L$LADP 00, G L10045 035310 NP ..OUT= 000100 PRIRAM 010146 RAMASC 014266 
L¢LAST 1 G Li 03 NP .WRP= 20 PRITAD 010354 RAMDAT 236 G 
L$LOAD 002100 G L10047 036370 NSI 004150 PRITSS 22 RAMERR 015620 G 
L$LUN 002074 G L10050 046716 NSINIT Ss PRITO 010436 RAMEXP G 
L$ 002050 G L1i0051 042. 004525 PRIT1 010501 RAMFOR 010176 
L$ 002000 G L100S2 04 NULCR 004526 PRIXOR 010022 G RAMSIZ 002276 G 
L$PRIO 002042 G L10053 052774 NXM = PRIOO = G RAMT 01 G 
L$PROT 021562 G Li 047572 NXMFLG 003132 G PRIO1 = G RCVHIA 002300 G 
L$PRT 002112 G L10055 NXMHI 003136 G PRIO2 = 000100 G RCVLOA 002302 G 
L$REPP 002062 G L1i00S6 051216 NXMLO 003134 G PRIO3 = 000140 G 00' 
L$REV 002010 G L100S57 055770 NXMTST 021466 I = 000 G RECMSG 002462 G 
L$RPT 022700 G L10060 36 003736 PRIOS = 000240 G RECV 002230 G 
L$SOFT L10061 063342 005734 G I 5 G REGSAV 020250 
L 002056 G L10062 26 NXRX 003775 PRIO7 = G RETERR 005370 
L L10063 073272 NXTU 022036 PRMESS 014352 Vv 222 G 
L$SPTP 002024 G L10064 34 . 5 1 PRMNO 002314 G REWIND 011126 G 
L$STA L10065 065514 ONEFIL= PRMSGE 01 G RMCHBE= 000167 

002160 G 3 356 O$APTS= 000000 PRMSGO RMCHEN= 
L$TEST 002114 G 10067 7260 O$AU = 000001 PRMSG1 015107 RMMSGB= 000215 
L$TIM 002014 G L10070 101076 O$BGNR= 000001 PRMSG2 015145 RMMSGE = 
L$UNIT 002012 G L10071 2 O$BGNS= 000001 PROASC RMPKTB= 1 


He 
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Symbol table 
RWPACK 011220 
Sc 100000 


AN 


an 


000020 
000040 


o aD 


QHRAHD @ 


AHAGD AH ©@ AH 


QDOHOHHAVNAH 


TS$EXCP= 


T$L TNO= 


TSTS= 


CLE= 


sagatse 


< 
senunun 


w 
9 


4444444444444 444149 44 44 49 49 44 44 49 4 4 tt 4 tt st tessa 


Ce ed ed ee ee en 


wne Bure ADA 
me 


T2 


09:02 Page 77-3 


ao 


ei~ 


an 


T318S1 


037771 
S60 
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table 


SEQ 0228 


Je 


TSV6 - PARAMETER CODING MACRO VOS.03 Tuesdey 28-Apr-87 
Symbol table 


T37CNT 102366 T37SSR 103116 17.4 
T37CNU 102370 T37SZ 102346 T8 
T37CON 102362 T37S2. = 102352 ‘T8.1 
TS7DAT 102230 T3783. 102354 8.2 
T37DLY 102372 T37TIM 103334 T9 
T370SW 102240 T37™ 103470 T9.1 
TS7DTA 105226 T37TRL 104623 ad 
TS7EOT 103411 T37TSA UNITN 
T37LON 104371 T37VCK 104154 UNREC = 
T37LO0O0 101134 T37wB USI 
T37LOP 104453 T37WOC 104101 WAITF 
T37L0@ 103035 T37WOD 1 WC. IFA= 
T37LOR 102710 T37WDE 103152 WC .IFE= 
3 104711 T37WOF WC .IGO= 
T370FL 103736 T37WOR 1 WC. IRE= 
TS7PAC 102220 T37WNG 102374 WC. IRW= 
T37PBP 104535 TS7WRF 105146 wC.I0T= 
T 102330 T37WSS we. I1T= 
T37PK3 102340 16 046720 G WC .ISR= 
T37RB_ 48102342 T4.1 WF .IED= 
TS7ROF 1 14.2 047610 WF .IER= 
TS7RES 105 14.3 WF .IHI= 
T37RN 102356 TS 052776 G WF. IRE= 
TS7RNC 103614 TS.1 WF IWF = 
T 102531 T6 055772 G WF. IWR= 
T37RT2 105436 6.1 WF .I3R= 
TS7RTS 1 17 063344 G WF .I4R= 
TS7RVN 103545 T7.1 063374 WRTCHR 
T37Ssc. C1 17.2 WRTERR 
T37SCF 105007 7.3 065532 WRT 


T 

- ABS. 106404 000.) l( 
000000 001 ¢ 
Errors detected: 0 


see Assembler statistics 


Work file reads: 308 

Work file writes: 296 

Size of work file: 31544 Words ( 124 Pages) 
Size of core pool: 19684 Words bea ne 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 
€l time: 00:07:32.75 


CVTSOE , CVTSDE/-SP=SVC/*L .CVTSDE 


an 


X$FALS= 


X$OFFS= 
X$TRUE= 


SEQ 0229 


